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#= $EOOO 


VERSION = $10 

! 

Vo« System verwendete Zero-Page Adressen: 


MERK1 

MERK2 

MERK3 

DLYT1 

DLYT2 

LDSW 

WRKEN 

EKSECT 

DÜNKEN 

FORKEN 

FQRKEN2 

LNRTRfl 

LTRACK 

TRACK 

SECTOR 

CONST 

DRSTfiT 

tüMST 

RETRY 

RWLEN 

SEELEN 

USKEN 

DLYTIN 

STPTIN 

COMPOS 

IND 

CHKSUM 

RDDATK 

KLAPPE 

SECANZ 

SECANZ1 

SECLST 

STALST 

STPPOS 

DSPCTR 

BLOCKS 

IOIND 


= $00 
= $01 
= $02 
= $03 
= $04 
= $05 
= $06 
= $07 
= $Ofl 
= $09 
= tOfi 
= $0ß 
= $0C 
= $0D 
= $9E 
= $0F 
= $10 
= $11 
= $12 
= $13 
= $14 
= $15 
= $16 
= $17 
= $13 
« $19 
= $1B 
= $1C 
= $1D 
= $1F 
= $1E 
= $20 
= $40 
= $60 
= $61 
= $62 
= $63 


Die Zero-Page Adressen $90-$CF sind unbenutzt 


datbuf « tacoo 

EXBUF = $9E00 

CNTBL = $9FOO 


Timer LO fuer Motor-Timer Routine 
Timer HI fuer Hotor-Ti»er Routine 
Letzte 'Dumm'-Schalter Position 
Anzahl der zu schreibenden Sectoren i« Ra« 

Sector 1t der Daten in Extended Buffer Wl 

Drive ’Du««'-Status 

Aktuelles Density 0=DD,41=KD,ä2=SD 

Density fuer Format, wird von COM4F gesetzt 

Track I der zu schreibenden Sectoren i« RAM 

Track II des zuletzt gelesenen Sectors 

Aktuelle Track t 

Aktuelle Sector I 

Controller Status 

Drive Status 

Command Status 

Anzahl der Retry's fuer Read/Write (normal 2) 

I/O Laenge 

Anzahl der Bytes pro Sector 

Kennung fuer Uebertragungsgeschwindigkeit 

Zeit, wie lange der Motor nach eine« Befehl noch laeuft 

Verzoegerung fuer Steppermotor 

Position des letzten Befehls in Co*«and-Tabelle 

Indirekt-Vektor fuer Daten-Buffer 

Checksumme fuer Datenuebertragung 

Kennung, ob Daten vom Computer geholt werden muessen 

Letzte Klappen-Position 

Sector-Anzahl pro Track, die vorhanden sein muessen 

Sector-finzahl pro Track, die vorhanden sind 

Sectorenliste 

Sectoren Statusliste 

Bit-Position fuer Steppermotor 

Dispiay/Drive-Controllbyte 

Anzahl der Datenblocks fuer Datenuebertragung 


Datenbuffer fuer Sectoren 

Extended-Buffer 

Coowiand-Tabelle 


Fuer eigene Programme steht der Speicherbereich $8000-$6BFF zur Verlegung 
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EOOO Dfi RESET 

CID 

* Kaltstart * 

E001 R2FF 

LDX #*FF 


EÖ03 9A 

TXS 

Stackpointer neu setzen 

E0O4 A938 

LDfl #138 


E006 8D8102 

STR *0281 

PflDIR 

E009 A938 

LDfl #*38 

8=Motor aus 

EOOB 8D8002 

STA *0280 

PflDflT 

EOOE .R93D 

LDfl #*3D 


E010 8D8302 

STR *0283 

PBDIR 

E013 8D8202 

STfl *0282 

PBDflT 

£016 2078E3 

JSR CÖNRE2 


E019 A980 

LDfl #*80 


E01B 851fl 

STfl IHD+1 

Adresse *8000 setzen 

E01D A900 

LDfl #0 


EÖ1F 9519 

STfl IND 


E021 R22Q 

LDX «20 


E023 m 

TAY 


E024 9119 DRflML 

STfl UND),Y 

Speicherbereich *6000-*9FFF loeschen 

£026 Cfl 

INY 


EOS7 DOfB 

BNE DRflML 


E029 EGlfl 

INC IND+1 


E02B Cfl 

DEX 


E02C D0F6 

BNE DRflML 


E02E ft960> 

LDfl #*60 

=RTS: Erweiterung der Reset-Routine vorgesehen 

E030 8D849F 

STfl CMTBL+M4 


E033 A955 

LDfl 1*55 


E035 800104 

STfl *0401 


E038 8D02Ü4 

STfl *0402 


E03B fl£lE 

LDX #$1E 


E03D Cfl RZS2 

DEX 


E03E DGFD 

BNE RZS2 


£040 ADO104 

LDfl *0401 


E043 4D0S04 

EOR *0402 

Disk-Controller auf Funktionstuechtigkeit pruefen 

E046 D01B 

BNE SYSERO 


E04B A948 

LDfl #*48 


E04H ÖD0004 

STfl *0400 


E04D fl£28 

LDX #*28 


E04F 20F2E2 

JSR XWflIT 


£052 AD0004 

LDfl *0400 


E055 4fl 

LSR fl 


E056 900B 

BCC SYSERO 


E058 A228 

LDX #*28 


E05A 20F2E2 

JSR XWflIT 


E05D AD0004 

LDfl *0400 


E060 4fl 

LSR fl 


E061 9010 

BCC RESET2 


E063 2068EÜ SVSERO 

JSR SYSERR 

* Systee-Error Routine * 

E066 800B 

BRft RESET2 

* 2xßell und Reset * 

i 

E06Ä 20B2EF SYSERR 

JSR BELLI 

Systee-Error Routine 






E06S A280 
E06D 20F2S2 
£070 4CB2EF 


LDX «90 
JSfi XWflIT 
JMP BELLI 


gibt 2 x Bell aus 


1 


E073 (1200 

REBETE 

LDX 40 

* Reset-Einsprung * 

E075 7400 

DELL 

STI 0, X 

E.077 EB 


INX 

Zeropage loeschen 

E07B DOFB 


BNE DELL 


i 

E07fl E61D 


INC KLOPPE 

=1 Initialisieren der Syste*-Variablen 

E07C E6Ü5 


INC LDS« 

=1 

E07E E662 


INC BLOCKS 

=1 

EOBO ft940 


LDd «40 


E0B2 8516 


STd DLVTIM 

Zeit fuer Hotor-Tiwer Rout ine - 

E084 A92C 


LDd «2C 


EÜ86 8517 


STd STPTIM 

Step-Zeit fuer Steppermotor testen 

£088 P982 


LDd «82 

Single Density - Status testen 

'£06(1 8509 


STd FORKEN 

E08C 650(1 


STd F0RKEN2 


E08E 20R9E1 


JSR SDRDDP 

System auf Single Density setzen und anzeigen 

EÖ91 20CCE2 


JSR TROJUS 

Kopf auf Track 0 positionieren 

E094 20F6EF 


JSR TRddNZ 

und Track 0 anzeigen 

E097 2078E3 

-* 

JSR CQNRE2 

2 x Controller Reset ausfuehren 

i 

E09fl d23C 


LDX «COHEND-CDKTBL 


EÖ9C BDflflES 

cowov 

LDd CÜKTBL, X 

Komando-Tabel le vom Ron 

E09F 9D0Ö9F 


STd DfTBL, X 

ins Ram kopieren 

EOffi Cd 


DEX 

E0fl3 10F7 


BPL COMMOV 


1 

E0ß5 (1900 


LDd 1 (TSTC02 

Vektor fuer Ruecksprung in die Motor-Timer-Routine setzen 

E007 8D809F 


STd CMTBL+180 

* Wenn ueber diesen Vektor in die Hotor-Timer-Routine * 

EOflfl R9IE- 


LDd * ITSTC02 

4 gesprungen wird, muss zuvor in DLYT1 und DLYT2 die # 

EOflC BDB19F 


STfl CMTBL+*81 

* Zeit eingetragen werden,wie lange der totor noch laufen 4 

EOflF (1913 


LDd * (NOTIH 

* soll, wenn kein Kommando mehr kommt * 

E0B1 8D829F 


STfl CNTBL 4-162 


- E0B4 09E1 


LDd # > MOT IM 


E0B6 8Ö839F 


STd CMTBL+103 


EÖB9 2Ö649F 


JSR CMTBL+184 


i 

EOBC DB 

BEREIT 

CLD 

♦ Bereitschaftroutine * 

EOBD d£FF 


LDX «FF 

4 Testet ob Diskette gewechselt wird 4 

EOBF 9(1 


TXS 

EOCO 2079E5 


JSR TSTDSH 

1 Dumm'-Schalter pruefen 

E0C3 A506 


UM WRKEN 

noch Daten zu schreiben ? 

E0C5 D036 


BNE TSTCO 


E0C7 RD0004 


LDd *0400 


EOCfl 2980 


UND #*80 

Klappe pruefen 

EOCC 0510 


CUP KLdPPE 


EOCE F02D 


BEQ TSTCO 


EOBO B51D 


STR KLdPPE 

Klappen-Status setzen 

E0D2 flfl 


TRX 
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EÖD3 1005 


BPL KLZU 


E0D5 202DE1 


JSR MOTOFF 

bei Klappe auf Motor ausschalten 

E0D8 8G1E 


BRfl CTSTflT 


EODfi A9FF 

KLZU 

LDft «FF 


EÖDC 850B 


STfl LWRTRft 

Kennung fuer keine zu schreibenden Daten la RAM 

EODE A200 


LDX 10 


EOEO 9E808C 

KZ DL 

STZ DßTBUF+$80,X 

2.HaeIfte der Sector^Buffer Sector 1-3 fuer 

E0E3 9E808D 


STZ OOTBUF+tOlflO,X 

Double Density loeschen 

E0E6 9E808E 


STZ DftTBÜF+$0280, X 


E0E9 E8 


IKI 


EÖEA 10F4 


BPL KZDL 


EOEC 2056E1 


JSR TSTDEN 

Density feststellen 

EOEF 3003 


BMI ISTKLX 


E0F1 20CDE1 

TKLÜK 

JSR RDSFOL 

Sectorfolge lesen 

E0F4 R3FF 

TSTKLX 

LOA #$FF 


E0F6 8504 


STfl DLYT2 

Delay Tiaer High-Byte 

E0F8 AD0G04 

CTSTflT 

LDfl $0400 


EOFB 850F 


STfl COMST 

Controller-Status uebernehien 

i 

EÖFD &C809F 

TSTCO 

JMP (CHTPL+taO) 

($9F&0) Vector fuer Kowando-Erkennungs-Routine 

E100 0902 

TSTC02 

LDfl #2 

Kommando-Erkennungs-Routine 

El02 2C8202 


BIT $0282 


E105 DOOC 


BNE MOTIH 

Computer aus 

E107 lOOfl 


BPL MOTIH 

Conmand Bit 

! 

E109 0515 


LDfl USKEN 

Uebertragungsgeschwindigkeit feststellen 

ElOB 2901 


AND tll 


E10D Oft 


ßSL fl 


E10E 8563 


STfl IÜIND 

Kennung fuer UebertragungsgeschHindigkeit setzen 

El 10 4C90E3 


JMP RDINF 

Befehl vom Coaputer empfangen 

El 13 E603 

MGTIM 

INC DLYT1 

Hot or-Timer-Routi ne 

El 15 D0fl5 


BNE BEREIT 


El17 E&Ü4 


INC DLYT2 


El 19 FOOfl 


BEQ HQTTOF 


El1B R504 


LDfl DLYT2 

bei Fast-Write nach ca. 2 Sekunden die Daten 

ElID C998 


CNP #$98 

aus dem RAH-Speicher auf die Diskette schreiben 

EUF D09B 


BNE BEREIT 


E121 ft50£ 


LDfl HRKEN 


El23 F097 


BEQ BEREIT 


E125 2064E& 

MOTTOF 

JSR TSTHR 

noch Daten zu schreiben ? 

El28 2Ö20E1 


JSR HOTOFF 

Hotor ausschalten 

E12B 808F 


BRfl BEREIT . 


i 

E12D fi908 

HOTOFF 

LDfl #ß 

Motor ausschalten 

E12F OC8O02 


TSB $0280 

'Motor on' Bit zuruecksetzen 

E132 A93C 


LDfl #$3C 


E134 008202 


TSB $0282 

Die 4 Bits des Steppermotors zuruecksetzen 

E137 0910 


LDft #$10 

Drive-Status (Hotor aus) setzen 

E139 1410 


TRB DRSTAT 


E13B 60 


RTS 



1 
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E13C 2C0004 

TSTMON 

BIT $0400 

Klappe auf ? 

E13F 3014 


BMI TMOEX 

ja 

£141 48 

MOTON 

PHfl 

sonst Motor einschalten 

El 42 (1908 


LDß #6 

'Motor on 1 Bit setzen 

E144 1C8002 


TRB $0280 


El47 F0O9 


BEß TMOX 


E149 0910 


LDf) *$10 

Motor On Status setzen 

E14B 0410 


TSB DRST9T 


E14D (£05 


LDX *5 


E14F 20FBE2 


JSR X2H9IT 

Verzoegerungsschleife, de« Motor Zeit geben, 

E152 68 

TMOX 

PL 9 

auf Touren zu ko«(ien 

El53 ffiOO 


LDX #0 

(X-Status 

El55 60 

TMOEX 

RTS 


E156 203CE1 

TSTDEN 

JSR TSTMON 

* Density von Diskette feststellen * 

E159 fi92C 


UW #$2C 


E15B B517 


ST9 5TPTIM 

Zeit fuer Stepwechsel kurz setzen 

EI5D 20D1E2 


JSR TfiftCKO 

Kopf auf Track 0 positionieren 

£160 640D 


STZ TRflCK 

E162 0000 

TSTDO 

LOY *0 

OK-Kennung 

E164 2C00Ö4 

TSTD1 

BIT $0400 

E167 3035 


BMI TDERR 


E169 5fi 


PHY 

Status retten 

E16fl 202FE3 

o 

JSR TRftDJR 

Kopf positionieren 

E16D 7(1 


PLY 

EISE R920 


LDfl *$20 


E17Ö 1C8002 


TRB $0280 

Set MFH 

El73 2030EB 

TSTDER 

JSR RDHDV 

Seetor lesen 

El76 BOOE 


BCS SETFM 

Lesefehler 

E170 (1941 


L69 #$41 

Medium Density - Status 

El 7(1 (167 D 


LDX $7D 

Sector Laenge 

E17C 30F5 


BMI TSTDER 

Daten ungueltig 

E17E F002 


BEQ SKFMF 

E160 R900 


LDß #0 

Double Density - Status 

E1S2 8509 

SMFMF 

STß FORKEN 

E1Ö4 801D 


BR9 TSTDEX 


"186 A920 

SETFM 

LDß *$20 


£188 OC8002 


TSB $0280 

Set FM 

El 86 (1982 


LDß #$82 


El86 8509 


STß FORKEN 


EI8F 2030EB 

RDHSD 

JSR RDHDV 

Sector Header lesen (SD) 

E192 900F 


BCC TSTDEX 

OK ? 

E194 R50D 


LDfl TRflCK 


E196 0903 


CMP #3 

Density bis Track 3 suchen 

El98 F004 


BEß TDERR 


E19ß E60D 


INC TRflCK 

Track # 1 

E19C 80C6 


BRfl TSTDI 


E19E 202DE2 

TDERR 

JSR RSFE80 

Drive 'Dumm'-Status setzen 

Elßl 9080 


LDY #$80 

Error-Kennung 

E193 59 

TSTDEX 

PHY 

E194 2099E1 


JSR SDRDDP 

Drive Density und Read/Wnte-Laenge einstellen 

£19/ 68 


PLfl 
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lei co*cr-ss«ti 
6EHES 


ElftS 60 


RTS 


i 

Elfl9 201FFO 

SDRDDP 

JSR DENDSP 

Density auf Display arteigen 

ElflC A920 

SETDRD 

LDfl «20 

DD 

ElflE 1C3002 


TRB $0200 

«FH 

E1B1 A212 


LDX #10 

18 Sektoren/Track 

E1B3 AA09 


LDY FORKEN 


E1B5 FOOF 


BEß SDRD 


E1B7 3006 


BMI SSD 

SD 

E1B9 ft980 


LDfl #$80 

MD 

EIBE fl21ft 


LDX #26 

26 Sektoren/Track 

E1BD 8005 


BRft SDDL80 


ElBF 0C8002 

SSD 

TSB $0280 

Set FM 

EIDE A900 


LDfl #0 


ElCA ftOSO 

SD Di Kl 

LDY #$80 

128 Bytes/Sector 

E1C6 0510 

SDHD 

STß DRSIflT 

Drive-Status setzen 

E1CS 661F 


STX SECftNZ 

Sectoren/Track setzen 

ElCfl 8A1A 


STY SECLEN 

Bytes/Sector setzen 

E1CC 60 


RTS 



I 

Sectorfolge auf aktuelle» Track lesen 


i 


E1CD A202 

RDSFDL 

LDX #2 


ElCF 20FBE2 


JSR X2WAIT 

warten bis Klappe vollstaendig geschlossen ist 

E1D2 203DEB 

RDSFD1 

JSR RDHEftD 


E1D5 B056- 


BCS RSFE0O 


E1D7- fljlF 


LDfl SECAN7 

Sektoren/Track 

EIDS Ifl 


INA 


ElDfl 0500 


STA MERK1 


ElDC 6A1E 


STZ SECftNZ1 


EIDE A9CF 


LDfl #$CF 


E1E0 8D9F02 


STft $029F 

Timer setzen 

E1E3 2042EB 

ÜD5FL 

JSR RDHD1 


E1E6 B027 


BCS RDSFT 


E1E8 ft57fl 


LDfl $7ft 


ElEfl 30F7 


BMI RDSFL 


E1EC C50D 


CMP TRfiCK 

Track Nummer ueberpruefen 

E1EE D03D 


BNE RSFE8Ü 


E1F0 ft57C 


LDfl $7C 

SECTOR Nummer 

E1F2 FOEF 


BEß RDSFL 

ungueltig 

EIFA 30ED 


BMI RDSFL 

ungueltig 

E1F6 C500 


CMP MERK1 

1SECftNZ ? 

E1F8 B033 


BCS RSFE80 


ElFfl A61E 


LDX SECftNZ1 


E1FC 9520 


STfl SECLST,X 

Sector in Sectorliste eintragen 

E1FE FÖÖB 


BEQ RSFI 


E200 ft200 


LDX #0 


E2C)2 D520 

FSFLL 

CMP SECLST,X 

Sector schon in Sector-Liste ? 

E20A FÖ27 


BEQ RSFE80 

ja - Dumm schalten 

E206 Ea 


INX 


E207 EA1E 


CPX SECftNZ1 


E209 90F7 


BCC RSFCL 
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F20B E61E 
E20D DOM 
E20F R5IE 
E2U C51F 
E213 D01S 
E215 A5O0 
E217 297F 
E219 0503 
E21B 2938 
E21D D015 
E21F A9FF 
E221 350C 
E223 6407 
E225 6406 
E227 A92C 
E229 8517 
E22B 18 
v_, E22C 60 
E22D 0980 
E22F 0400 
E231 20B2EF 
E234 R96D 
E236 8D0140 
E239 R938 
E23B 8D0040 
E23E A964 
E240 8517 
E242 38 
E243 60 
i 

E244 20E4E9 
E247 F024 
E249 B022 
E24B 206FE2 
E24E B01D 
, E250 A51F 

■ 2252 8500 
£254 E8 
£255 E41F 
E257 9002 
E259 0200 
E25B B420 
E25D 094000 
E2&0 F005 
E262 20B6E2 
E265 D0Ö6 
E267 C&OO 
E269 D0E9 
E26B 10 
E26C 60 
E26D 38 
E26E 60 ■ 


INC SECANZ1 
BNE RDSFL 
LDA SECAMZI 
CKP SECflNI 
BNE RSFEBO 
LDfl DUMKEN 
AND #47F 
STfi DUMKEN 
AND #438 
BNE DSPD2 
LDfl »$FF 
STfl LTRflCK 
STZ EXSECT 
STZ HRKEM... 
LDfl #42C 
STfl STPTIM 
CLC 
RTS 

LDfl #480 
TSB DÜNKEN 
JSR BELLI 
LDfl #46D 
STfl DI5P1Ö 
LDfl #438 
STfl DISP1 
LDfl #464 
STfl STPTIN 
SEC 
RTS 

JSR CALCTS 
BEQ RDTRVE 
BCS RDTRVE 
JSR RDTRß 
BCS RDTRVE 
LDfl SECflNZ 
STfl MERK1 
INX 

CPX SECflNZ 
BCC RDTRT 
LDX #0 

LDV SECLST,X 
LDfl STftLST, V 
BEß RDTRD 
JSR RDSS2 
BNE RDTRVE 
DEC MERK! 

BNE RDTRVL 

CLC 

RTS 

SEC 

RTS 


RSFI 

RDSFT 

RDSFOK 

SETDK 

SNEWTR 

RSFE80 

DSPEHJM 

DSPD2 


RDTRflV 

RDTRV2 

RDTRVL 

RDTRT 

RDTRD 

RDTRVE 


gefundene Sectoranzahl vorgegebene Sectoranzahl ? 

rein - 'Dumm 1 schalten 
Status ’Sector-Folge OK' 

Drive dennoch Du™ schalten ? 


Steppmotor Verzoegerung swert Kurz stellen 


Status ’Sector-Folge ERROR 1 


’SL 1 - Anzeige auf Display 


Steppmotor Verzoegerung normal 


* Aktuellen Track ins RAM einiesen - mit Verjfy # 
Sector # = 0 

Sector I groesser als zulaessig 
alle Sectoren vom Track lesen 


Sector-Status in Statusliste pruefen 
Status OK 

Sector noch einmal lesen 

'Carry' = 0 OK-Status 
’Carry’ = 1 Error-Status 
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E26F A94Q 

RDTRfl 

LDfl **40 

* Aktuellen Track ins RAM Einlesen - ohne Oerify * 

E271 0408 


TSB DUMKEM 


£273 £01DER 


JSR RDHDSP 

Sector-Track-Position festste!len 

££76 B0£F 


BCS RDTRflX 


E276 A67fl 


LDX *70 


E£7fl E40D 


CPX TRRCK 

Track # in Ordnung ? 

E£7C D0£9 


BNE RDTRflX 


E£7E ftEOO 


LDX 10 


E£Ö0 D5£0 

RDTRSL 

CUP SECLST,X 

Sector in Liste suchen 

E£6£ FÖ07 


BEQ RDTRR2 


E£B4 £8 


INX 


E285 E41E 


CPX SECflNZ 


E287 90F7 


BCC RDTRSL 


E289 801C 


BRR RDTRRX 


E£6E) A51F 

RDTRR2 

LDfl SECflNZ 

Anzahl Sectoren/Track 

E28D 8500 


STR MERK1 


E28F 201FE2 


JSR SNEIJTR 

Kennung fuer neuen Track setzen 

£292 20AFE2 

RDTR1L 

JSR RDSSPE 


££95 2916 


AND #*16 

CRC/ftM-ERR zulassen 

E£97 DOOE 


BNE RDTRflX 


E£99 0600 

RDTRA3 

DEC MERK1 


E296 D0F5 


BNE RDTR1L 


i '» 

E29D fl 940 


LDfl **40 

Track-Read Error-Status ruecksetzen 

ES9F 1408 


TRB DUMKEN 


E£fll A50D 


LDfl TRACK 


E2A3 850C 


STfl LTRflCK 

Track # fuer zuletzt gelesenen Track merken 

£2fl5 18 


CLC 


E£fl6 60 


RTS 


E2R7 £07BE3 

RDTRflX 

JSR CGNRES 

Controller zuruecksetzen 

E£Afi 2C0004 


BIT *0400 

Klappe auf ? 

E£AD 38 


SEC 


E2AE 60 


RTS 


ESftF E8 

RDSSPE 

INX 

* Unterprogramm zum lesen der Sectoren nach * 

E£BQ E41F 


CPX SECflNZ 

* Sector-Liste * 

E2B2 9002 


BCC RDSS2 


ESB4 ft£00 


LDX #0 

b 

E2B6 B5£0 

RDSS2 

LDfl SECLST, X 


£288 8DÖ204 


STfl *0402 

Sector * 

ESBB £01CER 


JSR SETBUF2 

Buffer fuer Sector setzen 

E£B£ E07BE3 


JSR CQNRES 


E2C1 E0D4EA 


JSR RDSEC1 

Sector lesen 

E2C4 8420 


LDY SECLST, X 

Sector-Status in Statusliste eintragen 

E2C6 293F 


AND #*3F 


E2C8 994000 


STfl STflLST, Y 


E£CB 60 


RTS 


i 

E2CC R9Ö4 

THOJUS 

LDfl *4 

* Track 0 Justierung * 

E2CE 2045E3 


JSR TRflDJl 

4 Tracks vorwaerts 


■VI 





Speedy 1050 ROM-Listing 


(cJ1906 Compy-Shop 


ESDI 2078E3 

TRRCK0 

JSR C0NRE2 

E2D4 ROFF 


LDY #$FF 

E2DS ftDOOW 

SENSOR 

LDR $0400 

E2D9 2904 


RND 14 

E2DB F005 


BEQ B5TST 

E2DD 200FE3 


JSR TRVR 

E2E0 B0F4 


BRR SENSOR 

E2E2 R560 

B5TST 

LDR STPPOS 

E2E4 C903 


CMP #3 

E2E6 F005 


BEO SETTRO 

E2E8 200FE3 


JSR TRVR 

E2EB D0F5 


BNE B5TST 

E2ED 9C0104 

SETTRO 

STZ $0401 

E2F0 R616 


LDX DLYTIM 

! 

E2F2 R912 

XWRIT 

LDR ülfl 

E2F4 3fl 

XWR1 

DER 

E2F5 D0FD 


BNE XWfli 

E2F7 CR 


DEX 

E2F8 D0F8 


BNE XWRIT 

E2FR 60 


RTS 

i 

E2FB 8604 

X2WRIT 

STX DLYT2 

E2FD R904 ' 

■' X2WR1 

LDR #4 

E2FF 0503 


STR DLYT1 

E301 R2FR 

X2WR2 

LDX #$Ffl 

E303 20F2E2 


JSR XWRIT 

E306 C603 


DEC DLYT1 

£308 D0F7 


BNE X2WR2 

E30R C604 


DEC DLYT2 

E30C D0EF 


BNE X2WR1 

E30E 60 


RTS 

i 

E3ÖF DR 

TRVR 

PHX 

E310 R660 


LDX STPPOS 

E312 E0 


INX 

E313 98 


TYR 

E314 3002 


BMI RWRRTS 

E316 CR 


DEX 

E317 CR 


DEX 

E318 8fl 

RWRRTS 

TXR 

E319 2903 


RND 13 

E31B 8560 


STR STPPOS 

E31D RR 


TRX 

E31E BD2BE3 


LDR SMDRT, X 

E321 8D8202 


STR $0282 

E324 R617 


LDX STPTIM 

E326 20F2E2 


JSR XWRIT 

E329 FR 


PLX 

E32R 60 

RTN1 

RTS 

E32B 39352D1D SMDRT 

.BYTE $39, $35, $2D,$1D 


Step-Rueckwaert s-Kennung 
Irsck-0 Sensor pruefen 
1 Track zurneck 

Track 0 nach Stepperposition fein justieren 

Track-Register des Controllers = 0 

* Verzoegerungsschleife * 

* Wert der Verzoegerung in X-Register * 

* 1 X-Wert ca. 100 Taktzyklen *■ 


* Schleife fuer lange Verzoegerungen * 

* 1 X-Wert ca. 100000 Taktzyklen * 


* Trackwechsel Routine * 

* Y=0Q-7F 1 Step vorwaerts * 

* Y-0O-FF 1 Step rueckwaerts * 

Bitposition des Steppermotors nerken 

Bit «tust er setzen 

Wert fuer Step-Verzoegerung 


SEITE 9 
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E32F 2ÜF0EF 

TRADJA 

JSR TRAANZ 

E332 207BE3 

TRADJ 

JSR CQNRES 

E335 £Ö3CE1 


JSR TSTNON 

E338 30IC 


BMI JPE80 

E33A A50D 


LDA TRACK 

E33C 38 

TRAUJO 

SEC 

E33D ED01Q4 


SBC $0401 

E340 F0E8 


BEQ RTN1 

E34£ 20F6EF 


JSR TRAANZ 

E345 A6 

TRADJ1 

TAY 

E346 1003 


BPL TRADJ2 

E34Ö 49FF 


EDR i$FF 

E34A Ifl 


INA 

E34B Oft 

TRADJ2 

ASL A 

E34C C950 


CMP *60 

E34E 9009 


BCC TRADJ3 

E350 206SE0 


JSR SYSERR 

£353 20D1E2 


JSR TRACKÖ 

E356 4C50E5 

JPE80 

JHP STELL2 

E359 flfi 

TRADJ3 

TAX 

E3SA 200FE3 

TRADJL 

JSR TRVR 

E35D CA 


DEX 

E35E D0FA 


BNE TRADJL 

E360 A60D 

SET T RN 

LDX TRACK 

E362 8E01Q4 


STX $0401 

E3B5 fl3id 


LDA #$10 

E3£7 E014 


CPX #20 

E369 9005 


BCC TRKL20 

E36B 0C8002 


TSB $0280 

E36E 8003 


BRA TRADJX 

E370 1CB002 

TRKL20 

TRB $0280 

E373 0220 

TRADJX 

LDX #$2B 

E375 4CF2E2 


JHP XHAIT 

! 

E37Ö 207BE3 

C0NRE2 

JSR CONRES 

E37B A9D0 

C0NRES 

LDA #$D0 

E37D 8D0004 


STA $0400 

E380 A907 


LDA #7 

£382 3fi 

CONRL 

DEA 

E303 DOFD 


BNE CONRL 

i 

E385 0901 

WREADV 

LDA #1 

E387 2D0004 

HRDYL 

AND $0400 

E38A DOFB 


BNE WRDYL 

E30C ADÖ004 


LDA $0400 

E38F 00 


RTS 

i 

E390 6411 

RDINF 

STZ COMST 

E392 A904 


LDA #4 

E394 A28Ü 


LDX #$80 

E396 flOOO 


LDY #0 

E390 2ÖBCE4 


JSR RDBTS 


Track-Justierung nit Trackanzeige 
-- ohne Trackanzeige 

Hotor einschalten wenn Klappe geschlossen ist 
Klappe war auf 
neue Track t 

Track-Register Controller 

neuer Track=alter Track 

bei Trackwechsel - Trackanzeige 


Steps x2 

tuehr als 40 Tracks nicht zulassen 
3 x Bell ausgeben 
Track 0 Justage 
=ERR60 

1 Step ausfuehren 

Track # in Trackregister Controller kopieren 


Track groesser £0 
Controller uinschalten 

Kurze Verzoegerung 


Controller Reset 


Harten auf Controller 

Controller-Status 


4 Bytes nach Buffer $80 
Komm ando vom Computer empfangen 





E39B AD8202 

CWAIT 

LDA (0262 

E39E 30FB 


BMI CWAIT 

E3A0 A2Ü4 


LDX #4 

E3A2 2ÖF2E2 


JSR XHfilT 

i 

E3A5 2411 


BIT CÜMST 

E3A7 702F 


BVS DELINF 

E3A9 20F7E3 


JSR TSTCDH 

E3AC 2411 


BIT CÜMST 

E3AE 302B 


BMI DELINF 

E3B0 7031 


BVS ERR4E1 

E3B2 20FBE4 


JSR SEND41 

E3B5 24IC 


BIT RDDATK 

E3B7 100A 


BPL EXECCÖ 

E3B9 20C2E4 


JSR RDBYTS 

E3BC 2411 


BIT CÜMST 

E3BE 7027 


BVS ERR4E2 

E3C0 20FBE4 


JSR SEND41 

E3C3 20A5E5 

EXECC0 

JSR EXEC 

E3C6 207BE3 


JSR CDNRES 

E3C9 A903 


LDfi #3 

E3CB 1410 


TRB DRSTAT 

E3CD A93C 


LDfl #(3C 

E3CF 0C8202 ' 


TSB (0282 

! 

E3D2 0516 

SDELRY 

LDfl DLVTIM 

E3D4 8504 


STA DLYT2 

E3D6 6403 


STZ DLYT1 

! 

E3DB 6480 

DELINF 

STZ (BO 

E3DA 6481 


STZ (81 

E3DC 6482 


STZ (82 

E3DE 6483 


STZ (83 

E3E0 6C829F 


JHP (CMTBL+$82) 

! 

E3E3 A901 

ERR4E1 

LDfl #1 

E3E5 8002 


BRfl ERR4E 

E3E7 A902 

ERR4E2 

LDfl #2 

E3E9 0410 

ERR4E 

TSB DRSTflT 

E3EB 2007E5 


JSR SEND4E 

E3EE ÖOE0 


BRfl DELINF 

E3F0 33323431 

. DRKEN 

.BYTE ' 3, '2, ’ 4,' 1 

i 

E3F4 4C50E5 

ERR8Ö 

JMP STELL2 

E3F7 AD8002 

TSTC0M 

LDfl (0290 

E3FA 2903 


AND 13 

E3FC AA 


TAX 

E3FD BDF0E3 


LDA DRKEN,X 

E400 C5Ö0 


CMP (80 

E402 D0F0 


BNE EFiFföO 


Harten bis Cownand - Leitung zurueekgesetzt ist 

Fehler bei Datenübertragung ? 

Konwando auf Eueltigkeit ueberpruefen 

Flag fuer Datenblock lesen 

'fl' senden 
Konnando ausfuetiren 

BIT 0+1=0 
Steppmotor aus 
’Motor aus 1 Zeit setzen 

Komaandobuffer loeschen 

Ruecksprungvector in Hotor-Tieer Routine 

’N’ senden 

Laufwerksnuwner Tabelle 

* Konriartdo vom Computer auf Gueltigkeit pruefen t 


Drive # OK ? 
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E404 0200 


LDK #0 


E406 BD009F 

VERCOM 

LDO CMTBL,K 

KoMMando in COM-Tabelle suchen 

E409 F075 


BEQ ERR40 

Ende CDM-Tabelle 

E4ÖB Ofl 


OSL fl 


E40C 661C 


ROR RDDOTK 


E4ÖE 40 


LSR fl 


E40F C5S1 


CMP töl 

Kojmnando gefunden ? 

E411 F011 


BEO COMFND 


E413 E8 


INK 


E414 E8 


INK 


E415 E0 


INK 


£416 3068 


BMI ERR40 


E418 0500 


LDfl DUMKEN 

Kor««ando aus erweiterter Konwtandotabelle zulassen ? 

E410 2938 


AND «38 

E41C F0E8 


BEQ VERCOM 


E41E E016 


CPK «16 


E420 90E4 


BCC VERCOM 


E422 0O5C 


BRA ERR40 


i 

E424 8618 

CQMFND 

STK COMPOS 


E426 E009 


CPK #9 

Kommando Position (3 

E42Ö BO40 


BCS TSTCOK 


E420 20E4E9 


JSR CALCTS 

Traek+Sector errechnen 

E42D BÖ51 


BCS ERR4Ö 

Sector unzulaessig 

E42F 3043,, 


BMI TSTCOK 

ROM oder ROM-fldresse 

E431 D006 


BNE C0MF2 


E433 05IC 


LDfl RDDOTK 


E435 3049 


BMI ERR40 


E437 803B 


BRfl TSTCOK 


E439 0500 

C0MF2 

LDfl DUMKEN 


E43B 2900 


AND «B0 


E43D DO£2 


BNE WSEBUF 


E43F 201OE0 


JSR SETBJF 

ROM-Buffer nach Sector # setzen 

E442 0610 

NÜSEC 

LDK COMPOS 

Koreaando ~ Read/Write Sector ? 

€444 FOOD 


BEQ WRSTD 


E446 E003 


CPX #3 

(Jrite Sector verify ? 

E448 F017 


BEQ WSEBUF 

E440 0500 


LDfl DUMKEN 

Read Sector 'Oiuw’ geschaltet ? 

E44C 40 


LSR fl 

E44D 9025 


BCC TSTCOK 


E44F BO10 


BCS WSEBUF 


E451 0508 

WRSTD 

LDfl DUMKEN 

Write Sector ’Duwn' geschaltet ? 

E453 29FA 


AND «Ffl 

E455 DOOO 


BNE WSEBUF 


E457 060E 


LDK SECTOR 


E459 R50D 


LDO TRACK 

neuer Track=letzter Track ? 

E45B C50B 


CMP LWRTRO 


E45D F007 


BEQ TSTRS 

Sector # fuer Exterrded-Buffer merken 

E45F 0607 


STK EKSECT 


E461 20DBE9 

WSEBUF 

TSR SEKBUF 

Extended Buffer als Sector-Buffer 

E464 800E 


BRO TSTCOK 


E466 0506 

TSTRS 

LDO WRKEN 

schon ein Sector auf diese« Track geschrieben (ins Rf 
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E468 

F004 


BEQ 

TSTRS2 


E46fl 

B540 


LDfl 

STALST, X 

Sector schon einmal geschrieben ? 

E46C 

3006 


BMI 

TSTCOX 


E46E 

A980 

TSTRS2 

LDA 

#teo 

Write Status setzen 

E470 

9540 


STA 

STALST, X 


E472 

E606 


INC 

WRKEN 

zu schreibende Sectoren+1 

£474 

A900 

TSTCOX 

LDA 

»0 


E47& 

24 IC 


BIT 

RDDATK 


E47Ö 

1001 


BPL 

RTN2 


E47A 

1A 


INfl 



E478 

0411 

RTN2 

TSB 

COMST 


E47D 

60 


RTS 



1 

E47E 

E615 

ER40UK 

INC 

USKEN 

Unschalten zwischen norwal oder High-Speed 

E480 

fiD%02 

ERR40 

LDA 

$0296 


E4S3 

0940 


LDA 

#$40 


E4Ö5 

0411 


TSB 

COMST 


467 

r'" 

60 


RTS 




t 

Test, ob Klappe geschlossen und krite-Proteet 


i 


E468 207BE3 

TSTWRP 

JSR CDNRES 


E46B 29C0 


AND #$C0 


E4SD 60 


RTS 


I 

E46E «607 

TSTICB 

LDX EXSECT 

Zu schreibender Sector in Extended-Buffer ? 

E490 F020 


BEQ TMEBX 


E492 A960 


LDA #$80 


E494 9540 


STA STALST,X 

Write-Status setzen 

E496 20F6EF 


JSR TRAANZ 

Trackanzeige 

E499 20IAEA 


JSR SETBUF 

RAM Buffer setzen 

E49C AOOÖ 


LDY #0 


E49E B9009E 

MEBL 

LDA EXBUF,Y 

Sectordaten in Sectorbuffer kopieren 

E4A1 9119 


STA ÜND),Y 


E4A3 CS 


INY 


E4A4 C413 


CPY RWLEN 


E4A& DOF& 


BNE MEBL 


E4AS 6407 


STZ EXSECT 


E4AA A901 


EDA #1 


E4AC 8506 


STA WRKEN 

Anzahl der zu schreibenden Sectoren = 1 

E4AE A50D 


LDA TRACK 

Track # fuer zu schreibenden Sector werken 

E4B0 850B 


STA LWRTRA 


E4fl£ 60 

} 

TMEBX 

RTS 


E4B3 A980 

RD128B 

LDA #teo 

128 Bytes 

E4B5 2C 


.BYTE $2C 

=BIT ABS. (Duwny) 

E4B6 A900 

RD256B 

IDA #0 

256 Bytes empfangen 

E4BS A200 


LDX # (EXBUF 


E4BA A09E 


LDY # 1EXBUF 


E4BC 8513 

RDBTS 

STA RWLEN 


E4BE 8619 


STX IND 
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RDBVTS 

RD1ELK 


E4C0 841 fl 

i 

E4C2 841B 
E4C4 A990 
E4C6 6D9F02 
E4C9 A0OO 
E4CB 20FOE4 
E4CE 9119 
E4D0 18 
E4D1 651B 
E4D3 6900 
E4D5 85IB 
E4D7 C8 
E4DB C413 
E4Dfl DOEF 
E4DC E041EA 
E4DF D0E3 
E4E1 20FOE4 
E4E4 AC9602 
E4E7 451B 
E4E9 D093 
E4EB 6411 
E4ED 4C2CEA 


E4F0 A663 RDBYTE 

E4F2 7CF5E4 
E4F5 12FE RDIND 


RDEXIT 


STY IND+1 . 

STZ CHKSUM 
LDA #$90 
STA $029F 
LDY #0 
JSR RDBYTE 
STA UND),Y 
CLC 

ADC CHKSUM 
ADC #0 
STA CHKSUM 
INY 

CPY RWLEN 
BNE RDBL 
JSR ADD6UF 
BNE RD1BLK 
JSR RDBYTE 
LDY $0296 
EQR CHKSUM 
BNE ER40UK 
STZ COMST 
JttP SETRWL 


Checksumme 1 oesdien 

maximale Zeit fuer Datenuebertragung festlegen 


1 Byte vom Computer empfangen 


letztes Byte ? 

mehrere Patenblocks lesen Iz.B. COM 60) ? 

Checksumme OK ? 

COM-Status 'Datenuebertragung ük’ 

1 Byte lesen 


LDX 10IMD 1 Byte lesen 

JMP (RDIND,X) 

.WORD NORDB,USRDB,RDP10 Tabelle I/O - Routinen 
(RDPIO fuer spaetere Erweiterung vorgesehen) 


E4F7 3BFE 

E4F9 OOFD 




i 

E4FB R941 

SEND41 

EDA #$41 

’A' Status-fiuecki 

E4FD DOOA 


BNE SENDW 


E4FF A943 

SEND43 

LDA #$43 

’C’ 

E501 D006 


BNE SENDH 


E503 A945 

SEND45 

LDA #$45 

’E’ 

E505 DOOS 


BNE SENDW 


E507 A94E 

SEND4E 

LDA t$4E 

’N’ 

E509 85Ö0 

SENDW 

STA MERK1 


E50B A202 


LDX #2 


E50D SOFSES 


JSR XWAIT 


E51Ö 802F 


BRA SDBYT2 


i 

E512 A980 

SD12QB 

LDA #$80 

128 Bytes 

E514 2C 


T BYTE $2C 

=BIT ABS. 

E515 P900 

SD256B 

LDA #0 

256 Bytes senden 

E517 A200 


LDX 1 IEXBUF 


E519 A09E 


LDY # )EXBUF 


E51B 0513 

SDBTS 

STA RWLEN 


E51D 8619 


STX IND 





J.-* r fl tS t 


.•r&bt' i ■ 
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E51F 84iß 


STY IND+1 


Datenblocks 2 Uin Computer senden 


E521 641B 

SDBYTS 

STZ CHKSUM 

Checksum loeschen 

E523 0000 

SD1BLK 

LDY *0 


E525 BUS 

SDBL 

LDO (1ND), Y 


E527 8500 


STR MEKK1 


E529 18 


CLC 


E520 651B 


ODC CHKSUM 


E52C 6900 


RDC #0 


E52E 851B 


STO CHKSUM 


E530 2041E5 


JSR S0BYT2 


E533 CS 


INY 


E534 C4I3 


CPY RULEN 


E536 D0ED 


BNE SDBL. 


E538 2041E0 


JSR ODDBUF 


E53B D0E6 


BNE SDIBLK 


E53D 05IB 


LDO CHKSUM 

Cheksumme senden 

E53F S500 

5D8YTE 

STR MERK1 


E541 0663 

SDBYT2 

LDX ItJIND 

1 Byte senden 

E543 7C46E5 


JMP (SDIND,X) 


E546 76FE ' 

•SDIMD 

• WORD NOSDB,USSDB,SDPIO 

Tabelle der I/D - Routinen 

i 


(SDPIO = fuer spaetere Erweiterung vorgesehen) 

E548 05FE 

E54A 27FD 




E54C 0902 

STELL 

LDO #2 

2 Versuche setzen 

E54E 8512 


STO RETRY 


E850 0980 

STELL2 

LDO **80 

Comraand-Error setzen 

E552 0411 


TSB COMST 


E554 60 


RTS 


! 

E555 FID0004 

QUITT 

LDO $0400 

f Quittungsbyte an Computer 

E558 850F 

QUITT2 

STO CONST 


E550 2411 


BIT COMST 


E55C 3007 


BMI SERR45 


ESSE 0944 


LDO *$44 


E560 1410 


TR8 DRSTAT 


E562 4CFFE4 


JMP SEND43 

’C’ Senden 

E565 20DBEF 

SERR45 

JSR ERRDSP 


E568 200DEF 


JSR BELL 


E56B 0904 


LDO #4 


E56D 0410 


TSB DRSTRT 


E56F 4C03E5 


JMP SEND45 

’E' Senden 

! 

E572 6D9602 

SETTIM 

STR *0296 

Set Timer Routine 

E575 GD9F02 


STR *029F 


E578 60 


RTS 


! 

E579 008002 

TSTDSW 

LDO *0280 

’Duwn' Schalter abfragen 
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E57C 2904 


AND #4 

E57E C5Ö5 


CMP LDSW 

E580 FÜRS 


BEQ TSTDSX 

E582 8505 


STA LDSW 

E584 AB 


TfiV 

£585 DOOfi 


BNE N0DSW 

E507 0908 


LDA #8 

E589 0408 


TSB DUMKEN 

E586 2034E2 


JSR DSPD2 

E58E 4C04E8 


JMP TSTDAT 

E591 A5Ö8 

NODSU 

LDA DUMKEN 

£593 29F7 


AND ft$F7 

£595 8508 


STA DUMKEN 

E597 2960 


AND #$B0 

E599 D006 


BNE NOFAST 

E59B 201FES 


JSR SNEWTR 

E59E 4CF6EF 


JMP TRAANZ 

E5R1 4C34E2 

NOFAST 

JMP DSPD2 

E5A4 60 

TSTDSX 

RTS 

I 

E5A5 £461 fl 

EXEC 

LDX COMPQS 

ESA7 7C01SF 


JMP (CMTBL+1 

1 

Normale Kommando - Tabelle: 

E5AA DO 

CQMTßl 

.BYTE tDO 

E5AB 00EC 


.WORD COM50 

E5AD D7 


.BYTE iD7 

E5AE OOEC 


.WORD COM50 

E5B0 52 


.BYTE $52 

E5B1 56EA 


■WORD CQM52 

E563 53 


.BYTE 153 

E5B4 80EF 


. WORD COM53 

E5B6 21 


-BYTE *21 

E5B7 E7EC 


.WORD COM21 

E5B9 22 


.BYTE $22 

E5BA E3EC 


.WORD C0M22 

E5BC 4E 


.BYTE $4E 

E5BD 28EF 


•WORD C0M4E 

E5BF 4F 


.BYTE $4F 

E5C0 5A£F 


■WORD C0M4F 

1 

Erweiterte Kommando-Tabelle: 


f 


E5C2 3F 

.BYTE $3F 

E5C3 ÖÜFE 

.WORD C0M3F 

E5C5 44 

.BYTE $44 

E5C6 E7E5 

.WORD CÜM44 

E5C8 4C 

.BYTE $4C 

E5C9 14E6 

.WORD COM4C 

E5CB 4D 

.BYTE $4D 

E5CC 11E6 

■WORB C0M4D 


gleiche Stellung wie vorher 

Dunun - Modus setzen 
’SL* anzeigen 

Testen ob noch Seetoren zu schreiben sind 
Ducra - Modus zuruecksetzen 


Kennung fuer 'kein Sector in ROM’ setzen 
Track N neu anzeigen 

Kommando ausfuehren 

Hrite Sector 
Unte Sector+Verify 
Read Sector 
Drive Status 
Format Single/Double 
Format Medi um 
Read Drive - Options 
Write Drive - Options 

Read High-Speed-Wert 
Display/Bell/Drive Control 
Jump Adresse 
Jufnp/Quitt 
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E5CE 51 


. BYTE $51 

Write all + Stop Motor 

E5CF 17E6 


.WORD CGM51 


ESDI 48 


.BYTE $46 

Set/Reset 'Duma 1 

E5D2 EEE5 


■ WORD C0M4B 


E5D4 60 


.BYTE $60 

Write Track (normal Speed) 

E5D5 4AE6 


.WORD C0M60 


E5D7 62 


.BYTE $62 

Read Track 

E5D8 26E6 


.WORD CÜM62 


E5Dfl 68 


.BYTE $68 

SIO-Laenge senden 

E5DB 9FE6 


.WORD C0M68 


E5DD 69 


.BYTE $69 

SIO Routine senden 

E5DE ADE6 


.WORD C0M69 


E5E0 41 


.BYTE $41 

Kommando einfuegen/loeschen 

E5E1 16E7 


.WORD C0M41 


E5E3 20 


.BYTE $20 

Spezial Format 

E5E4 7EE7 


.WORD C0M20 


E5E6 00 

CGMEND 

.BYTE 0 


i 

Bedeutung der Bits bei COM 44 


$80 : Error Anzeige zulassen 


$40 : Trackanzeige in 

Hexa-Dezimal 


$20 : Forbiat ohne Verify 


$10 : bei CÖM 20 Sectoren 1,2,3,360,1024 nicht 

schreiben 

$08 : bei COM 51 Motor 

anlassen 


$01 : Bell bei Error zulassen 


E5E7 A582 

C0M44 

LDA $82 

* Display/Drive Kontrolle neu setzen * 

E5E9 8561 


STA DSPCTR 


E5EB 4CFFE4 


JMP SEND43 


E5EE 2004E6 

CDM4B 

JSR TSTDAT 

* Slow/Fast - Mode Kontrolle * 

E5F1 0582 


LDA $02 


E5F3 8508 


STA DOMREN 


E5F5 29B8 


AND #$B8 


E5F7 F005 


BED C4BHI 


E5F9 2031E2 


JSR DSPDUM 

’SL’ anzeigen 

E5FC 8003 


BRR CUM4BX 


E5FE 2068ED 

C4BKI 

JSR COPSLT 


E601 4CFFE4 

C0M4BX 

JMP SEND43 

’C’ Senden 

! 

E604 2064EB 

TSTDAT 

JSR T5TWR 

Noch zu schreibende Sectoren schreiben 

E607 A61F 


LDX SECANZ 


E609 A940 


LDA #$40 


E60B 9540 

TSTDSL 

STA STALST, X 

Status 'kein Sector im RAM’ setzen 

E60D CA 


DEX 


E60E D0FB 


BNE TSTDSL 


E610 60 


RTS 


i 

E611 2055E5 

COM4D 

JSR QUITT 


E614 6C8200 

C0M4C 

JMP ($62) 

Sprung ueber ’Jump Adresse’ 
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E617 2064EB 

C0M51 

JSR TSTWR 

E61A A561 


LDA DSPCTR 

Et,:; 3308 


AND #8 

E6LE D003 


BNE C51Q 

E620 202DE1 


JSR MÜTDFF 

E623 4CFFE4 

C51Q 

JMP SEND43 

i 

E&26 A583 

C0M62 

LDA $83 

E628 300A 


BMI C62X 

E62A 2050E5 


JSR STELL2 

E62D 2044E2 


JSR RDTHAV 

E&30 Bö.02 


BCS C62X 

E632 8411 

C&20K 

STZ CÜNST 

£634 2055E5 

C62X 

JSR QUITT 

E637 A51F 


EDA SECfiNZ 

EG39 8562 


STA BLOCKS 

E&3B A514 


LDA SEELEN 

E63D A6S2 


LDX $82 

E63F A483 


LDV $83 

E&41 3004 


BMI C62SD 

E643 A20G 


LDX # (DATBUF 

E645 A0ÖC 


LDY fl >DATBUF 

E647 4C1BE5 

C62SD 

JMP SDBTS 

i 

E64A 2050E5 

CDM60 

JSR STELL2 

E&4D 20E4E9 


JSR CALCTS 

£650 F047 


BEQ C6ÜX 

E652 6045 


BCS C60X 

E654 300D 


BMI C60RD 

E&56 A50E 


LDA SECTOR 

E65B 3A 


DEA 

E659 D03E 


BNE C6ÖX 

E658 A900 


LDA fl (DATBUF 

E65D 3519 


STA IND 

E65F A9BC 


LDA # >DATBUF 

E661 851A 


STA IN0+1 

E663 A51F 

C60RD 

LDA SECANZ 

E665 A&14 


LDX SECLEN 

E667 F001 


BEQ C60RD2 

E663 4A 


LSR A 

E66A 8562 

C60RD2 

STA BLOCKS 

E6&C 6413 


STZ RALEN 

E66E 20C2E4 


JSR RDBYTS 

E671 2411 


BIT COMST 

E673 7027 


&VS C60E4E 

E67S 20FBE4 


JSR SEND41 

E678 A583 


LDA $83 

E67A 3016 


BMI C&OOK 

E67C A50D 


LDA TRACK 

E67E 0506 


STA LWRTRfi 

E680 2088E4 


JSR TSTWRP 

E683 DO14 


BNE C6ÖX. 


r<och zu schreibende Sectoren schreiben 
Motor ausschalten ? 

'C senden 

RAM - oder ROM - Adresse ? 

Error - Status setzen 
Read Track rait Verify 

DK Status senden 
Quittung senden 

Anzahl der Datenblocks setzen 

RAM - oder RDM - Adresse ? 

alle Datenblocks senden 

Error Status setzen 

Sector 0 nicht zulassen 
Track >39 
Daten ins RAM 


Anzahl der Datenblocks setzen 

alle Datenblocks lesen 
Fehler in Datenuebertragung ? 

’A’ Senden 

Track fl uebernehmen 

Hrite Protect oder Klappe auf ? 





ic) 19Ü£> Corppy-Shop 
SEITE 13 
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E685 A61F 


LDX SECANZ 

EGA7 8606 


STX URKEN 

E683 A30O 


EDA #tao 

E68B 9540 

C60L 

STA STALST, X 

E68D CA 


DEX 

E&flE DOFB 


BNE C6ÖL 

E690 2064EB 


JSR TSTWR 

E693 A501 


LDA ICRK2 

E695 D002 


BNE C60X 

E697 6411 

C600K 

STZ COMST 

E699 4C55E5 

C60X 

JHP QUITT 

E69C 4C07E5 

C60E4E 

JMP SEND4E 

E69F 20FFE4 

CDH68 

JSR SEND43 

E6A2 A902 


LDA #2 

ESA4 A2AB 


EDX t <51ÖLEN 

E6A6 A0E& 


LDX # >SIOLEN 

E6A8 4C1BE5 


JMP SDBTS 

E6AB 1602 

SIOLEN 

.WORD SIOEND-SID 

E&AD A953 

CDM69 

LDA * iSIO 

E6AF 8519 


STA IND 

E6B1 38 


SEC 

E6B2 £582 .* 


SBC *82 

E6B4 8582 


STA $82 

E6B6 A9F0 


LDA 11 )SI0 

E6B8 851A 


STA IND+1 

E6BA E583 


SBC $83 

E6BC 8583 


STA $83 

E6BE 20FFE4 


JSR SEND43 

E6C1 A000 


LDY #0 

E6C3 841B 


STV CHKSUM 

E6C5 B%9F2 

C69L 

LDA A&STBL,X 

E6C8 C519 


CMP IND 

E6CA D01E 


BNE C69SB 

E6CC B%AF2 


LDA ABSTBLM,X 

E6CF C51A 


CMP IND+1 

ESDI D017 


BNE C69SB 

E6D3 2001E7 


JSR C69LDB 

E6D6 38 


SEC 

E6D7 E582 


SBC $82 

E6D9 08 


PHP 

E6DA 200AE7 


JSR C69SDB 

E6DD 2001E7 


JSR C69LDB 

E6E0 20 


PLP 

E&E1 E583 


SBC $83 

E6E3 200AE7 


JSR C69SDB 

E6E6 C8 


INX 

E6E7 C8 


INX 

E6E8 DÖ06 


BNE C69TE 

E6EA 2001E7 

C69SB 

JSR C&9LDB 

E6ED 200AE7 


JSR C&9SDB 


Write Status fuer alle Sectoren setzen 


den ganzen Track schreiben 


OK Status setzen 
Quittung senden 
’H' Senden 

* Diese Routine gibt die Laenge der Slü-Rouitne * 

* an den Computer zurueck # 


* Routine zun Senden der kompletten SIO-Routine an der. * 

* Coaputer ■ 


Unterschied zwischen 0RG- und TARGET-Adresse errechnen 


eine zu relocierende Adresse ? 


absolute Adresse relocieren 
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SEITE £0 


E6F0 A513 

C&9TE 

LDA IND 


E6F2 C%9 


CMP tt (SIOEND 

Ende der SIQ-Routine 

E&F4 DÜCF 


BNE C69L 


E6F6 ftSlfl 


LDA IND+1 


E6FÖ C9F2 


CMP tt )SIOEND 


E&Ffi DOC9 


BNE C69L 


E6FC A51B 


LDA CHKSUM 


E6FE 4C3FE5 


JMP SDBYTE 


E70i B219 

C&9LDB 

LDfl (IND) 

nasch st es Byte der SIO-Routine empfangen 

E703 E619 


INC IND 


E7G5 DOOS 


BNE C89LDX 


E707 E61A 


INC INDH 


E709 E0 

C69LDX 

RTS 


E70A 0500 

C69SDB 

STA MERK1 

1 Byte zura Computer senden 

E70C ia 


CLC 


E7ÖD 051B 


ADC CHKSUM 


E70F 6900 


ADC #0 


E711 0519 


STA CHKSUM 


E713 4C41E5 


JMP SDBYTE 


1 

E716 A903 

C0H41 

LDA #3 

3 Bytes in den Extended-Buffer holen 

E718 A200 


LDX #.(EXBUF 


E71A A09E 


LDY tt }EXBUF 


E71C 20BCE4 


JSR RDBTS 


E71F £411 


BIT COMSI 

Fehler bei Datenuebertragung ? 

E721 7050 


BVS C41E4E 


E723 EOFBE4 


JSR SEND41 

' A’ senden 

E726 E05C£5 


JSR STELLE 


£709 AD009E 


LDA EXBUF 


E72C 297F 


AND «7F 


E72E 8500 


STA MERK1 

Kommando ohne Bit 7 merken 

E730 «000 


LDX 10 


E732 BD009F 

C41SL 

LDA CMTBL,X 

Testen ob das Kommando schon in der Kommando-Tabelle ist 

E735 08 


PHP 


E73& F026 


BEQ C41AC2 

Tabellenende! 

E73S 297F 


AND l$7F 


E73fl C500 


CMP MERK1 


E73C FOOfl 


BEQ C41AC1 


E73E ES 


PLP 


E73F E8 


INX 


E740 Efl 


INX 


E741 £8 


INX 


E742 E07E 


CPX #126 


£744 90EC 


BCC C41SL 


E746 8030 


BRfi C41X 

Commmand-Tabelle voll 

E74Ö AD019E 

C41AC1 

LDA EXBUF+1 

Command-Adresse = 0000 ? 

E74B 0D029E 


ORR EXBUF+2 


E74E DOOE 


BNE C41AC2 


E750 BD039F 

C41ML 

LDA CMTBL+3, X 

Kommando loeschen und Tabelle kuerzen 

E753 9D0Ü9F 


STA CMTBL,X 


E75& E8 


INX 


E757 E07B 


CPX #123 
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(c)1306 Com py-Shcp 


Vl - 


SEITE 21 


E759 90F5 


BCC C41ML 

E75B 20 


PLP 

E75C 0010 


BRR C41ÜK 

E75E RD009E 

C41ACE 

LDR EXBUF 

E761 9DÖ09F 


STR CMTBl,X 

E764 RD019E 


LDR EXBUF+1 

E767 9D019F 


STR CMTBL+1,X 

E76R RD029E 


LDR EXBUF*2 

E76D 9D029F 


STR CMTBL+2,X 

E770 20 


PLP 

E771 D003 


BNE C410K 

E.773 9E039F 


STZ CMTBL+3,X 

£776 6411 

C410K 

STZ CQMST 

E770 4C55E5 

C41X 

JMP QUITT 

E77B 4C07E5 

C41E4E 

JMP SEND4E 


Kommando anhaengen 

war eine ’0’ am Ta bei lenende vorhanden ? 
wieder ein ’ 0’ anhaengen 
Quittung senden 


spezial Formatierungsroutine 
'^ =r '’Comp 1 ete’ wird sofort zurueckgegeben 

Das Laufwerk schreibt bei Bedarf selbststaendig 

die Sectorert 1,2,3,360 und 102a fruit CQM44, Bit 4 einzustellenl 

i 


E77E 2050E5 

CDM20 

JSR STELLE 

E7S1 2O80E4 


JSR TSTtIRP 

E784 D002 


BME C20E1 

£706 6411 


STZ CQMST 

E760 2Q55E5 

C20E1 

JSR QUITT 

E70B R511 


LDR CDMST 

E70D D00C 


BNE RTN4 

E70F 240R 


BIT FQRKEN2 

E791 7003 


BVS GC22 

E793 20E7EC 


JSR C0M21 

E7% 0007 


BRR TEURER 

E738 4CB2EF 

C20ERR 

JMP BELLI 

E79B 60 

RTN4 

RTS 

E7X 20E3EC 

GC22 

JSR C0M22 

9F A511 

TFORER 

LDR COMST 

'^tffll D0F5 


BNE C20ERR 

E7R3 R561 


LDR DSPCTR 

E7R5 2910 


AND #$10 

E7R7 D076 


BNE HRVTX 

E7R9 R200 ' 


LDX #0 

E7RB BD6EE8 

C20ML 

LDR BOOTID, X 

E7RE 3D009E 


STR EXBUF, X 

E7B1 9E809E 


STZ EXBUF+IÖO, X 

E7B4 E0 


INX 

E7B5 10F4 


BPL C20ML 

E7B7 2ÖDBE9 


JSR SEXBUF 

E7BR R901 


LDR #1 

E7BC 206BEC 


JSR WRSECN 

E7BF R200 


LDX #0 

E7C1 BDEBE0 

C20M2L 

LDR BOOTID+$8Ö, X 

E7C4 9D009E 


STR EXBUF,X 


Klappe + Write-Protect testen 

Quittung vor dem Formatieren zuruecksenderr 

Format SD oder DD 

Format MD 

Display/Drive Control - Bit 4 gesetzt ? 

ja, Sectoren nicht schreiben 

Daten fuer Sector 1 ir, den Extended-Buf-fer kopieren 

fuer DD 2.Sectorhaelfte loeschen 

Extended Buffer setzen 
Sector 1 schreiben 

Daten fuer Sector 2 in den Extended-Buffer kopieren 
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E7C7 Eö 
E7C0 10F7 
E7CR 0902 
E7CC 206BEC 

E7CE 0200 

E7DI BD6BE9 C20M3L 

E7D4 9D009E 

E7D7 E3 

E7D0 E070 

E7D0 D0F5 

E7DC 9E009E C2ÜDL 

E7DF £3 

E7E0 DOFA 

E7E2 0903 

E7E4 206BEC 

E7E7 02ÖB 

E7E9 6D41E3 C2ÜSVT 

E7EC BC4DE8 

E7EF 9219 C20VTL 

E7F1 E619 

E7F3 flfl 

E7F4 D0F9 

E7F6 CO 

E7F7 10F0 

E7F9 A96Q, 

E7FB 3532 

E7FD R901 

E7FF 35Ö3 

E301 20E4E9 

E804 202FE3 

£007 £400 

E309 5000 

EflOB 09F2 

E80D 8D019E 

Eßl 0 0903 

£312 SDQ29E 

E015.2ODBE9 WRVTQC . 

E810 20E9EC 

E31B 2400 

ESID 7001 

E31F 60 WRVTX 

E820 0927 C20MD 

EÖ22 350D 
EB24 202FE3 
E027 0200 

E329 BC02E3 MDVTL 

E02C BD59E3 

E82F 9219 KDVTLS 

E331 E619 

E633 83 

E334 D0F9 

E636 CO 


INX 

BPL C20M2L 
EDO #2 

JSR WRSECN Sector 2 schreiben 

LDX #0 

LDO BOOTID<-$0100, X Daten fuer Sector 3 in den Extended-Buffer kopieren 

STO EXBUF,X 

INX 


CPX ti 1B1DEND-BODTID"$0O 
BNE C20K3L 
STZ EXBUF, X 
INX 

BNE C20DL 
LDO #3 
JSR WRSECN 
LDX #11 
LDO VTTBL1,X 
LDY VTTBL2, X 
STO (IND) 

INC IND 
DEY 

BNE C20VTL 
DEX 

BPL C20SVT 
LDO #$66 
STO $32 
LDO #1 
STO $83 
JSR CflLCTS 
JSR TRODJfl 
BIT F0RKEN2 
BVC WRVTÜC 


Bufferende loeschen 


Sector 3 schreiben 


VTOC erzeugen 


Track errechnen 

Kopf positionieren + Track t anzei 


gen 


LDO #$F2 
STO EXBUF+1 
LDO #3 
STO EXBUF+2 
JSR SEXBUF 
JSR WRSECT 
BIT FDRKEN2 
BVS C20MD 
RTS 

LDO #39 
STO TRACK 
JSR TRODJfl 
LDX #8 
LDY MDVT2,X 
LDfl MDVT1,X 
STP UND) 

INC IND 
DEY 

BNE MDVTL2 
DEX 


Sector 360 (VTDC) schreiben 

Medium Density ? 

ja. 


Track 39 positionieren 


VTDC 2 (fuer Dos 2.5 Format) erzeugen 


> ic)1906 Compy-Shop 
SEITE ZZ 



E837 10F0 
E839 20DBE9 
E83C figOfl 
E83E 1 4C6BEC 


BPL KDVTL 
JSR SEXBUF 
LDA #10 
JMP WR5ECN 


Sector 1024 schreiben (nur bei HD! 


Daten fuer VTÖC - Single Density 

EflAl 00FF7F00 VTTBL1 .BYTE 0, SFF, $7F, 0, $FF, 15,0,2, IC3,2, $C3,2 
E845 FF0F0002 
EÖ49 C302C302 

E84D 9C2B0101 VTTBL2 .BYTE $90,43,1,1,44,1,5,1,1,1,1,1 
E851 20010501 
E855 01010101 
i 

j.. Daten fuer VTDC - Medium Density 

' ' 00012FFF MDVT1 .BYTE 0, l,$£F,tF'F,t7F,$FF,$7F,0,$FF 
: SS5D 7FFF7FOO 
E861 FF 

E862 04010125 MDVT2 .BYTE 4,1,1,37,1,43,1,1,39 
EBBE 012B0101 
EB6A 27 

t 

? 

Es folgt das Bootprogranwi fuer die Sectoren 1-3 


E86B 00030007 BOOTID .BYTE 0,3,0, 7,$77,$E4 
E66F 77E4 


E871 A9D6 
E873 8500 
FS75 0907 
7 8501 
; "ES79 0950 

E87B 85D5 
E87D 0200 
E87F 8&D4 
E861 ftOOÖ 
EB83 ßlOO L2 

E885 300B 
E887 91D4 
E889 C8 LLü 

EB8fl E600 
E88C DOF5 
EBBE E&01 
E890 D0F1 


LDA * {IDTEXT-BODTI0+*0700 
STA $00 

LDfl # )IDTEXT-BODTID+$0700 
STft $01 


LDfl #$50 
STA $D5 
LDX 10 
STX $D4 
LDY #0 
LDfl ($00,X) 
BMI OV 
STA ($D4),Y 
INY 

INC $00 
BNE L2 
INC $01 
BNE L2 


Screen-Buffer $5000 


Text in Screen-Buffer kopieren 
naechste Zeile 


E892 C9FF OV 


CMP #$FF 


Text-Ende ? 
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ES94 F00F 


BEll 

PICOK 

E8% 297F 


AMD 

H7F 

E898 flfl 


TAY 


E899 A5D4 


LDH 

iD4 

E89B 6928 


ADC 

#40 

E89D S5D4 


STA 

tD4 

EB9F 9ÖE8 


BCC 

LLP 

Eflfll E6D5 


INC 

$D5 

E8fl3 DÖE4 


BNE 

LLP 

i 

E8A5 A954 

PIGÜK 

LDfl 

# (DLIST-BDOTID+$0700 

Eßfl7 8D3Ö02 


STfl 

$0230 

Eflflfl 0908 


LDA 

* ) ÜLIST-BDOT ID-<-$0700 

EÖflC 8D31Ö2 


StA 

$0231 

ESftF A900 


LDfl 

#0 

E861 8DCÖ02 


STA 

$0£C8 

E8B4 8DC602 


STfl 

$0206 

EBB7 BD0ED4 


STfl 

$D40E 

EflBfl 05D6 


STfl 

COLGR 

E8BC 65E1 


STfl 

lifiSK 

E8BE A920 


LDA 

#$20 

E8CÖ 8DF402 


STA 

$02F4 

EBC3 0987 


LDA 

# (DLI-BQ0TID+$07ÖÖ 

E8C5 8D0002 


STA 

$0200 

EÖC8 3907 


LDfl 

# )DLI-B00TlDt$0700 

EBCfl 8DQ102 


STA 

$0201 

EÖCD A9CQ 

DS 

LDA 

#$C0 

E8CF 8D0ED4 


STA 

$D40E 

E8D2 RC0AD2 

LP 

LDY 

$D20fl 

E8D5 B900E0 


LDfl 

$E000, Y 

E8DB 20ÖE07 


JSR 

CDDE-BQ0TID+$Ö7Ü0 

E8DB 990020 


STfl 

$2000, Y 

E8DE AC0AD2 


LDY 

$D20A 

E8E1 B300E1 


LDfl 

$E100,Y 

E8E4 208E07 


JSR 

CODE-BOOTID+$07ÖQ 

E8E7 990021 


STfl 

$2100,Y 

E8Efl AC0AD2 


LDY 

$D20A 

E8ED B900E3 


LDfl 

$E3ÖO,Y 

E8F0 208E07 


JSR 

CODE-BOQTID+$0700 

EBF3 990023 


STA 

$2300,Y 

EBF6 4C6707 


JMP 

LP-B00T1D+$Ü70Ö 

ESF9 48 

EOCC 

PHA 


E8FA E6D6 


INC 

C 

E6FC A5D6 


LDA 

C 

E8FE 2C8307 


BIT 

DS-B00T1D+$Ö7Ö1 

E901 10OC 


BPL 

Al 

E903 500A 


BVC 

Al 

E905 A900 


LDfl 

#0 

E907 B5D6 


STA 

C 

£909 E6E1 


INC 

MASK 

E908 D002 


BNE 

AI 

E90D C6E1 


DEC 

MASK 


X-Position naechste Zeile uebernehmen 


Screen-Buffer fuer 1 Zeile heraufzaehlen 


Display-List fuer Screen-Buffer setzen 


flntic-Zugriff aasschalten 


Zeichensatz-Basisadresse auf $2000 


flntic-Zugriff und DU zulassen 
Zeichensatz per Bit-Mapping kopieren 


Bit-Maske + 1 






iliifr. 


5L 
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E90F R5E1 RI 

LDR MRSK 


E911 C3FF 

CMP #$FF 

alle Bits gesetzt 

E913 0002 

BNE DO 

E915 68 

PLR 


E916 60 

RTS 


£917 RD0RD2 00 

LDR FD20R 


E91R 25E1 

AND MRSK 


£91C 85E0 

STR $E0 


E91E 68 

PLR 


: E91F 25E0 

AND $E0 

Bit5 von Zeichensatz ausblenden 

E921 60 

RTS 


£922 48 DUI 

PHR 


E923 90 

TYR 


E924 40 

PHR 


E925 R00F 

LDY #15 


E927 90 DHL 

TYR 


: E928 0920 

ORR #$20 


6D0RD4 

STR $040R 


0D16DO 

STR $0016 

setzen der Farbhelligkeit 

E930 49RF 

EOR #$RF 

E932 8D17D0 

STR $0017 

Setzen der Helligkeit fuer Sehri 

E935 88 

DEY 


E936 10EF 

BPL DLIL 


E938 R90C 

LDR #$0C 


E93R 8D17DO 

STR $D017 


E93D &a 

PLR 


; E93E RS 

TRY 


: E93F 68 

PLR 


E940 40 

RTI 


1 

Texte der Bootsectoren 



: I 

E941 2469736B IDTEXT 
E945 00666F72 
£949 60617469 

E94D 65727400 

.SBVTE "Disk forniatiert 

mit:" 

6D69741R 



h$5 81 

.BYTE $01 


E956 33302525 

.SBYTE "SPEEDY " 


E95R 243900 

E95D 515C>5550 
. E%1 00 

.BYTE 01,80,05,80,0 


E962 36 

.SBYTE n r 


E963 11 

.BYTE VERSION/16 A 16 


E964 OE 

.SBYTE 


E965 10 

•BYTE VERSION#15 A 16 


£966 83 

.BYTE $83 


E967 08630900 

E968 2269626F 

.SBYTE "(c) Bibosoft — 

COMPY SHOP 1986" 

E96F 736F6674 

E973 OOODODOO 

E977 232F2D30 




i 


I 

I 
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SEITE £6 



E970 39003328 
E97F £F300011 
E983 191018 
E9S6 80 
E987 37656974 
E9BB 65726500 
E98F 296E666F 1 
E993 726D6174 
E997 696F6E65 
E95E 6E006265 
E99F 691A 
E9R1 90 
E9fi2 232F2D30 
E3fl6 39003320 
E9Aß 2F30 
E9AC 90 
E9AD 34656C0E 
E9B1 1A001012 
E9B5 1018ÜFI4 
E9B9 19171116 
E9BD 19 
E9BE FF 


■BYTE $60 

.SBYTE "Weitere Informationen bei:" 


.BYTE *90 

. SBYTE "CÜMPY SHOP' 1 


.BYTE *90 

-SBYTE "Tel.: 0208/497169" 


■BYTE *FF 


Display - List 
i 

E9BF 70707070 DLIST . BYTE *70, *70, $70, *70, *70, *70, *70, *42,0, *50 
E9C3 70707042 
E9C7 0050 

E9C9 7070F007 .BYTE *70,*70,*F0,7,6,*70,*70,2,*70,*70,2,*70,*70,2,2,*41 

E9CD 06707002 
E9D1 70700270 
E9D5 70020241 

E9D9 5408 .WORD DLIST-B0OTID+*0700 


E9DB 

i 

BIDEJMD 


E9DB 0900 

SEXBUF 

LDfl # (EXBIjF 

E9DD 8519 


ST« INO 

E9DF A93E 


LDfl * 1EXBUF 

E9E1 851A 


STft IND+i 

E9E3 60 


RTS 

E9E4 A582 

CflLCTS 

LDfi *82 

E9E6 8519 


STfl INO 

E9EÖ 0583 


LDfl *03 

E9EA 851« 


STfl IND+1 

E9EC 3004 


BMI CTSD 

E9EE 0582 


QRft *02 

E9F0 DOOB 


BNE CALC2 

E9F2 «508 

CISC 

LDfl DUMKEN 

E9F4 £938 


AND #*38 


IND-Veetor auf den Extended-Buffer setzen 


Routine 2 ura errechnen der Track- und Sectormiwjer 


Sector # >*7FFF -) Buffer Adresse RDM/RflM 

Sector 0 ? 

nein 
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E9F6 C901 


CUP #1 

E9F8 ß582 


LDß 482 

E9Ffl 0563 


□RA 483 

E9FC 60 


RTS 

E9FD flOFF 

CALC2 

LDV #4FF 

E9FF C9 

CßLCL 

INT 

EflOO A519 


LDß 1ND 

Eß0£ 850E 


STß SECTOR 

EÖ04 36 


SEC 

EA05 E51F 


SBC SECßNZ 

Eß07 0519 


STß IND 

Efl09 BQ04 


BCS ßDDTRß 

EßOB C61fl 


DEC 1ND+1 

EßOD 3004 


BMI CßLCT 

EflOF 051fl 

ßDDTRfl 

DRß 1N0+1 

EflU D0£C 


BNE CßLCL 

Eßl 3 CO20 

CßLCT 

CPY 440 

i EfU5 840D 


STY TRACK 

Eßl7 A50E 


LDß SECTOR 

Efll9 60 

CflLCX 

RTS 

Efllß ß50E 

SETBUF 

LDß SECTOR 

EfllC 64.19 

SET8UF2 

STZ IND 

EßlE 3fl 


DEfl 

EfllF 16 


CLC 

Efl20 2414 


BIT SECLEN 

Efl2£ 1003 


BPL ADDHIB 

Efl24 4ß 


LSR ß 

Efl25 6619 


ROR IND 

Eß27 698C 

ßDDHIB 

ADC 11 ) DATBUF 

Eß29 651ß 


STß IND+1 

Eß£B 60 

SETBX 

RTS 

i 

EA$C A414 

SETRWL 

LDY SECLEN 

EA2E ß503 


LDß 463 

Eß30 DOO0 


BNE SRWL 

Efl32 fl582 


LDß $82 

! N _$34 C904 


CMP #4 

Eß36 B002 


BCS SRWL 

ER38 ßOflO 


LDY #460 

Eß3ft 6413 

SRWL 

STY RWLEN 

Eß3C fl901 


LDß #1 

Eß3E 8562 


STß BLOCKS 

Eß40 60 


RTS 

Efl41 ß56£ 

flDDBUF 

LDß BLOCKS 

Efi43 3ß 


DEfl 

EA44 FOOF 


BEG ADDB4 

Eß46 ß513 


LDß RWLEN 

Efl48 F007 


BEQ ADDB2 

Eß4fl 18 


CLC 

Efl4B 6519 


ADC IND 


(cli966 Cc'»py-Shop 

_ SEITE 27 

Bei 'Duraiq’ Carry setzen 


»Carry 1 - Flag fuer Sector * - Error setzen 


* Diese Routine errechnet den RßM-Buffer * 

* aus der Sectornumer * 


* Routine zum richtigen setzen der Read/Write - Laenge * 


Sector * ( t ? 

12Ö Bytes 

Anzahl der Datenblocks = I 

* Buffer erhoehen falls «eherere Daten-Buffer uebertragen * 

* werden sollen 



Speedy 1050 ROM-List, ing 


ici 1966 Compy-Shop 


SEITE £8 


ER4D 0513 


STR IND 


EA4F 9002 


BCC RDDB3 


EftSl EG 1 fl 

RDDB2 

INC IND+1 


ER53 C662 

RDDB3 

DEC BLOCKS 


EA55 60 

RDBB4 

RTS 


ER56 R563 

C0M52 

LDH tS3 

* RtflD-SECTDR Routine * 

EA56 306D 


BMI C520K 

verzweigen bei Read RAM oder ROM 

ER5R 0562 


ÜRR $82 


ER5C F063 


BEQ C520K 

verzweigen bei Read Zero-Page 

T 

ER5E £04CE5 


JSR STELL 

Retry : s und ERROR-Status setzen 

ER61 207BE3 


JSR CONRES 


ER64 3063 


BMI C52X 


ER66 0506 


LDR DUMKEN 

Wenn 1 Dum»’-geschaltet, den Sector normal lesen 

£066 23B9 


AND #$B9 


ER6R D044 


BNE C52TRR 


i 

ER6C R50D 


LDR TRRCK 

richtiger Track schon nit ROM ? 

ER6E C50C 


CMP LTRRCK 


ER70 F006 


BEQ TRROK 


ER72 2064EB 

C52TRR 

JSR TSTWR 

muss ein neuer Track komplett eingelesen werden, RAM vorher 

ER75 206FE2 


JSR RDTHfl 

auf noch zu schreibende Sectoren pruefen 

ER78 2406 

TRROK 

BIT DUNKEN 

ER7R 7031 


BVS C52DUH 


ER7C R60E 


LDX SECTOR 


ER7E 6540 


LDR STREST,X 

Status des zu lesenden Sectors DK ? 

Efl&O C94Ö 


CMP #$40 


ER82 BÖEE 


BCS C52TRR 

Sector befindet sich noch nicht irc RAM 

ER84 291F 


RND «1F 


ER86 D025 


BNE C520UM 


ER68 201RER 


JSR SETBUF 

Buffer fiter entsprechenden Sector setzen 

ER8B B540 


LDR STflLST, X 


ER8D FÖ38 


BEQ C520K 


ER8F 2058E5 


JSR QUITT2 

Quittung und Daten senden 

ER92 4C21E5 


JMP SDBVTS 


ER95 C612 

C52RTV 

DEC RETRV 

Retry bei Read-Sector 

ER97 3030 


BMI C52X 


ER99 292F 


RND #$2F 


ER9B D0Ö5 


BNE FLIP 


ER9D 20D1E2 


JSR TRRCKO 

bei defektem Datenfeld Track 0 

ERfiO 800E 


BRR C52TRR 


ERR2 ROFF 

FLIP 

LDV #$FF 

1 Track Rueckwaerts 

ERR4 200FE3 


JSR TRVR 


EAR7 C6 


INV 

1 Track vorwaerts 

ERR8 200FE3 


JSR TRVR 


EftfiB 8003 


BRR C52TRR 


i 

EflfiD 201RER 

CSEBUM 

JSR SETBUF 


EfiBO 2032E3 

C52TRR 

JSR TRRDJ 

* Normale Read-Sector Routine * 

ERB3 D014 


BNE C32X 
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SEITE 29 


EAB5 A60E 


LDX SECTOR 


EAB7 2ÜCFEA 


JSR RDSECT 


EflBfl Ad 


TAY 


EABB 0500 


LDA DUMKEN 

wenn nicht 1 Duriin’ geschaltet 

EflBD 29B9 


AMD #$B9 

Status in TUtusliste uebernehifien 

EABF D003 


BME 052NSS 


EAC1 98 


TYA 


EAC2 9540 


STA STALST,X 


EAC4 90 

C52NSS 

TYA 


EAC5 DOCE 


BME C52RTY 


I 

EAC7 6411 

C520K 

STZ CQMST 


EAC9 2055E5 

052X 

JSR ßUITT 

ßuittuny und Daten senden 

EACC 4C21E5 


JMP SDBYTS 


■ EACF A50E 

RDSECT 

LDA SECTOR 

* Einzelnen Seetür in vgrbezeiebneten RAH Einlesen * 

ESDI BD0204 


STA $0402 


V D4 0900 

RDSEC1 

LDA #$80 

Read Seetür fuer Controller 

v_,£AD6 8D0004 


STA $0400 


EAD9 «WO 


LDY #0 


EADB A9E6 

ROSST 

LDA #$E6 


EADD BD9F02 


STA $029F 

Tiner setzen 

EflEO 2C8002 

RDSL 

BIT $0280 


EAE3 5029 


BVC RDSTO 

Tine out 

EAE5 10F9 


BPL RDSL 


ERE7 AD0304 


LDA $0403 

1 Byte von Controller uebernehnen 

EAEA 49FF 


EOR #$FF 


EflEC 9119 


STA (1MD),Y 

und in den Sectorbuffer schreiben 

EAEE AD9602 


LDA $0296 


EAF1 00 


INY 


EAF2 200002 

RDSL 2 

BIT $0200 


EOF5 5017 


ßVC RDSTO 


EfiF7 10F9 


BPL RDSL2 


EAF9 AD03Ö4 


LDA $0403 


EAFC 49FF 


EOR #$FF 


EAFE 9119 


STA iIMB),Y 


TO 00 


IMY 


'— EBC> 1 0414 


CPY SECLEM 


EB03 DQED 


BNE RDSL2 


EBC5 2O05E3 


JSR WHEADY 

Harten auf Controller 1 Ready 1 

EBO0 AD00G4 

RDSRS 

LDA $0400 


EBOB 293E 


AND #$3E 

Status pruefen 

EBOD 60 


RTS - 


EBOE RD0004 

RDSTO 

LDA $0400 


EB11 4A 


LSR A 

'ln Use' Fiag noch gesetzt 1 

EB12 B0C7 


BCS RDSST 


EB14 AC9S02 


LDY $0296 


EB17 4A 


LSR A 

'Lost Data' Flag gesetzt ? 

EßI0 4fi 


LSR A 


EB19 BOBS 


BCS RDSEC1 


. EB1B flOEB 


BRfi RDSRS 





1 




EßlD 2032E3 

RDfiDSP 

JSR TSADJ 

EB20 DOOD 


BNE RTN3 

EB22 fi003 

RDHDS1 

LDV #3 

EB24 2030EB 

RDHSL 

JSR RDHDV 

EB27 ß57C 


LDß $7C 

EB29 9004 


BCC RTN3 

EB2B 86 


DEV 

EßdC DOFS 


BNE RDHSL 

EB2E 38 


SEC 

EB2F 60 

RTN3 

RTS 

i 

EB3Ö A920 

RDHDV 

LDfl #$20 

EB32 8D9F02 


STA $029F 

EB35 2042EB 

RDHDVL 

JSR RDHD1 

EB3Ö B002 


BCS RDHVX 

EB3A DOFS 


BNE RDHDVL 

EB3C 60 

RDHVX 

RTS 

i 

EB3D A9D8 

RDHEAD 

LDA #$D8 

EB3F 8D9F02 


STß $023F 

EB42 A27A 

RDHD1 

LDX #$7A 

EB44 A3C8 


LDfi #$ca 

EB46 3D0004 


STß $0400 

£649 2C9002 

RDHDL 

BIT 10280 

EB4C 50U 


BVC SINFTO 

EB4E 1ÖF9 


BPL RDHDL 

EB5Ö AD0304 


LDß $0403 

EB53 9500 


STß $0Ö,X 

EB55 Eß 


INX 

EB56 10F1 


BPL RDHDL 

EB5S 20BSE3 


JSR WREfiDY 

EB5B 290C 


AND #$0C 

EB5D 18 


CLC 

EB5E 60 


RTS 

EB5F 207BE3 

SINFTO 

JSR CONRES 

EB82 38 


SEC 

EB63 80 


RTS 


* Diese Routine fuehrt 3 Header-Read Operationen aus * 

* und gibt bei erfolgreiche« Leseversuch die Sector tt * 

* ui ßccu zurueck . 


Leseversuch erfolgreich: ’Carry' = 0 


Zeit fuer den Controller setzen einen Header zu finden 


wird kein Header gefunden, so ist das 'Carry'-Flag gesetzt 


* Hier liegt die gleiche Funktion wie bei RDHDV vor, nur wird * 

* dem Controller etwas ueber eine koaplette Umdreheung der t 

* Diskette Zeit gegeben. * 

Der Header besteht aus 6 Bytes, die ab Adresse $7ß abgelegt 
werden: 

1. Byte t$7A) Track Nr. 

2. Byte ($7B> Side Nr. 

3. Byte ($70 Sector Nr. 

4. Byte ($7D) Sector laenge 

5. +6.Byte [$7E,$7F! 2 CRC Bytes 


Die Sectoren, die als zu schreibend in der Statusliste gekennzeichnet sind 
auf die Diskette schreiben 


EB64 ß506 TSTWR 

LDfi tJRKEN 

Anzahl der zu schreibenden Sectoren 

EB66 F06ß 

BEß TWREX 


EB68 2041E1 

JSR MOTON 

Motor zwingend einschalten 

EB6B ß50D 

LDfi TRACK 

aktuellen Track aerken 

EB6D 48 

PHfl 


EB6E A50B 

LDß LWRTRA 


EB70 850D 

STß TRftCK 


EB72 20F6EF 

JSR TRflflNZ 

Track Nr. anzeigen 

EB75 203CE3 

JSR TRßDJÖ 

Kopf positionieren 

EB78 2022EB 

JSR RDHDS1 

1. Header suchen 

EB7B Fß 

PLX 




Yrr.L 
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SEME 51 


EB7C 860D 


STX TRACK 

Track # zurueckholen 

EB7E 6401 


ST: MERK2 


EBÖO BÖ20 


BES TWRERR 


EB82 AE00 


LDX #0 


EB84 D520 

TWIL 

CMP SECLST,X 

Sector in Sectorliste suchen 

EBÖ6 F03B 


BEÜ NOURS 


EBßfl E8 


INX 


EB89 E41F 


CPX SECANZ 


EB6B 90F7 


BCC TWIL 


EB6D 2ÖB2EF 

TWERR2 

JSR BELLI 

Sector nicht in Sectorliste gefunden, 1 Bell ausgeben 

EB90 8031 


BRA NOWRS 

i 

EB92 B420 

TSTWL 

LDY SECLST,X 


£694 B94000 


LDA STALST,Y 

ein zu schreibender Sector ? 

EB37 I02A 


BPL NOWRS 

nein 

EB99 2088E4 


JSR TSTWRP 

Write Protect +■ Klappe testen 

EB9C F00B 


BEQ TSTW1 

fi501 


LDA MERKS 


W» D018 


BNE TSTW2 


EBA2 20D3EB 

TWRERR 

JSR WRERR 

5 Sekunden auf dem Display herunterzaehlen und Bell ausgeben 

EBA5 8501 


STA MERK2 

EBA7 80lfi 


BSP NOWRS 


EBP9 98 

TSTW1 

TYA 


EBP/1 8D0204 


STA $0402 

Sector # ins Sectorregister des Contollers schreiben 

EBAD 201CEA 


JSR SETBUF2 

EBBO 20SEEC 


JSR WRSEC1 

Sector schreiben 

EBB3 F005 


BEQ TSTW2 

Status OK 

EBB5 208BE4 


JSR TSTWRP 

Write Protect + Klappe testen 

EBB8 D009 


BNE NOWRS 


EBBA B420 

TSTW2 

LDY SECLST,X 

'Sector written’-Status setzen 

EBBE A9W 


LDA #$40 


EBBE 394000 


STA STALST, Y 


EBC1 C606 


DEC WRKEN 


i 

EBC3 ES 

NEW RS 

INX 

naechste Position in Sectorliste setzen 

EBC4 E41F 


CPX SECPNZ 


. "6 9002 


BCC TSTWE 


EbC8 P200 


LDX #0 


EBCA A5Ö6 

TSTWE 

LDP WRKEN 


E8CC DÜC4 


BNE TSTWL 


EBCE A9FF 


LDP #$FF 


EBDO 8508 


STA LWRTRA 

’Track written’-Status setzen 

EBD2 SO 

TWREX 

RTS 



Diese Routine wird von der Write-Track Routine aufgerufen 
wenn die Diskette vor einer abgeschlossenen Urite-Sequenz 
aus dem Laufwerk genommen oder Wnte-Protected wird. 

]■ 5 Sekunden werden auf dem Display herabgezaehlt und 
nach jeder Sekunde wird ein Warnton abgegeben 


EBD3 »1 WRERR PHX 
EBD4 5A PHV 


i 
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(c)19ßb Coapy-Shop 


SEITE 32 


EBD5 A005 


LDY *5 

5 Sekunden Betzen 

EBD7 90 

WRERRL 

TYA 


EBD8 20D1EF 


JSR ANZEIGE 

Sekunden zur Anzeige bringen 

EBDB 20B2EF 


JSR BELLI 

1 Bell ausgeben 

EBDE A203 


LDX #3 

grosse Verzoegerungsschleife ica. 1 Sekunde) setzen 

EBEO A9FF 

WcHLl 

EDA ü$FF 


EBE2 BD9F02 


STA $029F 


EBE5 E-ÜÖSE4 

HEWL2 

JSR TSTWHP 

noch Hrite-Protected oder Klappe auf ? 

EBEß FÖOB 


BEQ WRERX 


EBEA 2CÖ0Ü2 


EIT $0260 


EBED 7GF6 


BVS HEUL2 


EBEF CA 


DEX 


EBFÖ DÖEE 


BNE HEUL1 


EBF2 08 


KV 


EBF3 IDEE 


BPL WRERRL 


EBF5 20F6EF 

HRERX 

JSR TRßßNZ 

aktuelle Track # wieder arteigen 

EBFfl AE9602 


LDX $0296 

Tiwer IRQ zuruecksetzen 

EBFB 7fl 


PLV 

V-Register zurueckholen 

EBFC Ffl 


PLX 

X-Register zurueckholen 

EBFD 4C08E4 


JMP TSTHRP 


! 

ECOO 204CE5 

COM 50 

JSR STELL 

* Hrite Seetor Routine * 

EC03 A503 


LDA $03 


ECOS 305D 


BMI C50ÜK2 

Sector * > 7FFF -1 RAM - oder ROM - Adresse 

EC07 ASSI o 


LBfi $61 


EC09 C957 


CMP *$57 

Hrite mit Verify ? 

ECOB F022 


BEQ C50DUM 


ECÖD 2ÜÖ6E4 


JSR TSTHRP 

Hrite Protect + Klappe testen 

EC 10 DÖ54 


BNE C50X 


EC12 203CE1 


JSR TSTMON 

Motor einschalten 

EC 15 A508 


LDfl DUMKEN 


EC17 29FA 


AND *$FA 

'Dumm* geschaltet ? 

EC19 D014 


BNE CSODUM 


i 

EC1B A5ÖD 


LDA TRACK 

einen kompletten Track im RAM '> 

EC1D C50ß 


CMP LHRTRA 


EC1F DOOfe 


BNE C50B 


EC21 A50G 


LDA HRKEN 


EC23 C51F 


CMP SECAN7 


EC25 DÜ3D 


BNE C5ÖQK2 


EC27 2G64E6 

C5ÖB 

JSR TSTHR 

alle zu schreibenden Sectoren schreiben 

EC2A 208EE4 

C50C 

JSR TSTMEB 

falls vorhanden, Seetordaten aus Extended Buffer 




in den Sectorbuffer kopieren 

EC2D 8035 


BRA C500K2 


> 

Normale Write-Sector 

Rout ine 


i 

EC2F 2O80E4 

C50DUM 

JSR TSTHRP 

Disk 'Hrite Protect’ oder Klappe auf ? 

EC32 DO32 


BNE C50X 

js 

EC34 ASOD 


LDA TRACK 


EC36 C50C 


CMP LTRACK 


EC30 D0G4 


BNE C50TR9 
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SEITE 33 


ED3A fi&OE 


LDX SECTDR 

ku schreibenden Sector als im RAM stehende Daten Markieren 

EC3C 7440 


STZ 3TALST, X 

braucht bei ’Read Sector 1 nicht mehr gelesen zu werden 

EC3E 2032E3 

C50TRA 

JSR TRADJ 

Kopf positionieren 

EC41 D023 


ENE C50X 


EC43 2069EC 


JSR WRSECT 

Sector vom angegebenen Buffer schreiben 

EC46 F009 


BEß C500K 


EC48 C612 


DEC RETRV 


EC4ft FOlfl 


BEß C50X 


EC4C 2ÖD1E2 


JSR TRACKO 

Track 0 positionieren 

EC4F 8ÖDE 


BRA C50DUM 

Retvy ausfuehren 

i 

scsi real 

C500K 

LDA *81 


EC53 C957 


CMP 11*57 

Write mit Verify 

EC55 DGOD 


BNE C500K2 

EC57 reoe 


IDA DUMKEN. 


EC59 2904 


AMD 44 

Verify bei C0M57 ausfuehren ? 

T^B DÖ07 


BNE C500K2 

20A4EC 


JSR VERSEC 

Verify Sector 

EC6Ö BÖÖ4' 


BCS C50X 


EC62 »02 


BNE C50X 


EC64 6411 

C500K2 

STZ COMST 

OK-Status setzen 

EC66 4C55E5 

C50X 

JMP QUITT 

Quittung senden 

ECS9 A50E 

WRSECT 

LDfi SECTDR 

* Einzelnen Sector aus vorbezeichneter RAM-Adresse # 

EC6B 8D0204 

UR5ECN 

STA *0402 

* auf die Diskette schreiben * 

EC6E AOOO 

WRSEC1 

LDY 40 


EC70 A9AB 


LDfi WAS 

Write Sector Befehl an Controller 

EC72 8D0004 


STA *0400 


EC75 A9E6 

WRSST 

LDfi 4*E6 


EC77 8D9F02 


STA J029F 

Timer setzen 

EC7A El 19 

WRSL 

LDA <|NDJ,V 

1 Byte invertiert 

EC7C 49FF 


EOR 4*FF 


EC7E 2C8002 

WRSDR 

BIT *0280 


ECÖ1 5013 


BVC URSTO 

Time out 

EC83 10F9 


BPL WRSDR 


re 0DO3O4 


STR *0403 

Byte an den Controller uebergeben 

b_J AD9602 


LDfi *02% 


EC8B ca 


INY 


ECBC C414 


CPY SECLEW 

alle Bytes geschrieben ? 

EC8.E DOEfl 


BNE WRSL 


ECSO 2085E3 


JSR WRERDY 

auf Controller 'Ready 1 warten 

EC93 290C 


fiND #*0C 


EC95 60 


RTS . 


EC96 AD0004 

WRSTO 

LDfi *0400 


EC99 4A 


LSR fi 

'In Use' Bit gesetzt ? 

EC9A B0D9 


BCS WRSST 


ECK 4fl 


LSR fl 

'Data Request' gesetzt ? 

EC9D 4fi 


LSR ß 


ECX EKCE ' 


BCS WRSEC1 


ECAO AD0004 


LDA *0400 


ECA3 60 


RTS 



i 
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yn 


SEITE 34 


ECfl4 

fiSOE 

VERSEC 

LDA 

SECTOR 

ECflC 

8D0204 


STfi 

*0402 

ECA9 

0988 

VERSE 1 

LDfl 

tttae 

ECfiB 

8DOOÖ4 


STfl 

*0400 

ECfiE 

RÜÜÖ 


LDV 

KO 

ECBQ 

99D8 

VERSST 

LDfl 

4*D8 

ECB2 

8D9F02 


STfl 

*029F 

ECB5 

BUB 

VERSL 

LDfl 

(IND),V 

ECB7 

49FF 


EOR 

«FF 

ECB9 

2C8002 

VERSL2 

BIT 

*0280 

ECBC 

501(1 


BVC 

VERSTO 

ECBE 

10FS 


BPL 

VERSL2 

ECCO 

CDG304 


CMP 

*0403 

ECC3 

DOOC 


BNE 

VERSER 

ECC5 

CS 


INY 


ECC6 

C414 


CPY 

SEELEN 

ECC8 

DOEB 


BNE 

VERSL 

ECCfl 

2085E3 


JSR 

UREflDY 

EC CD 

A900 


LDfl 

#0 

ECCF 

18 


CLC 


EC DO 

60 


RTS 


ECD1 

207BE3 

VESSER 

JSR 

CONRES 

ECD4 

(1980 


LDfl 

4*80 

ECD6 

18 


CLC 


ECD7 

&o 


RTS 


ECDS 

AD0004 

VERSTD 

LDfl 

*0400 

ECDB 

4(1 


LSR 

(1 

ECDC 

BCiDE 


ECS 

VERSST 

ECDE 

207BE3 


JSR 

CONRES 

ECE1 

38 


SEC 


ECE2 

60 


RTS 


1 

Forma t i er un g 5-Rout i ne ri 



i 

ECE3 

R941 

C0M22 

LDfl 

4*41 

ECE5 

D014 


BNE 

FSDflTB 

ECE7 

A582 

COM2! 

LDfl 

*82 

ECES 

C911 


CMP 

#tn 

ECEB 

D006 


BNE 

C21TSD 

ECED 

(1583 


LDfl 

*83 

ECEF 

C904 


CMP 

44 

ECF1 

FOFO 


BEQ 

C0M22 

ECF3 

(1982 

C21TSD 

LDfl 

4*82 

ECF5 

A&Ofl 


LDX 

F0RKEN2 

ECF7 

D002 


BNE 

FSDflTB 

i 

ECF9 

9900 

C21DD 

LDfl 

40 

! 

ECFB 

8509 

FSDflTB 

STfi 

FORKEN 

ECFD 

2Ö50E5 


JSR 

STELLE 

ED00 

2068ED 


JSR 

COPSLT 


* Seetor mit Datenbuffer vergleichen * 
Read Sector an Controller 

Timer setzen 

Time out 

alle Daten verglichen ? 

auf Controller 'Ready' warten 
alle Daten verglichen und OK 
kein Fehler aufgetreten 

Daten ungleich 

kein Lesefehler aufgetreten 

Kommando noch ’In Use’ 

'Carry' = ERRÜR-Flag 

Medium Density (MD)-Kennung 

Sector Nr. 1041 ? 

Single Density (SD)-Kennung 

Double Density (DD)-Kermung 

Neue Sectorliste in die leropage kopieren 



£ ■ ' ■■ VkY- ’ 


■ uäSk- 
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ED03 R508 


LDß DUMKEN 


ED05 293F 


AND #*3F 


ED07 2019E2 


JSR SETDK 


EDOR R509 


LDR FORKEN 


EDOC 2901 


AND Hl 


EDOE 4901 


EOR #1 


ED10 8501 


STR MERK2 

0/1 = Sectorlaenge-Kennung 

ED12 R927 


LDR #39 

40 Tracks 

EDI4 850D 


STR TRRCK 


ED1& 20EFED 

FORMTE 

JSR FÜRMTR 

1 Track formatieren 

ED19 BOIS 


BCS FORMIX 


EDI6 R561 


LDß DSPCTR 


ED1D 2920 


RND «20 

Bit 5 (Display+Drive-Kontrollbyte) 

ED1F DÖOC 


ONE NOVER 

schaltet Verify beim Formatieren aus 

ED21 flfilF 


LDX SECRNZ 


ED23 208BE2 


JSR RDTRR2 

alle Sectoren lesen 

ED26 BOOB 


BCS FORMIX 


TD28 2050E2 


JSR RDTRV2 

falls Lesefehler 1 Retry 

ED2B BOOG 


BCS FORMU 


ED2D C6ÖD 

NGVER 

DEC TRRCK 


ED2F 10E5 


BPL F0RM1L 


ED31 6411 


STZ CDMST 

gesamte Formatierung OK 

ED33 R9FF 

F0RK1X 

LDR «FF 


ED35 R200 


LDX #0 


ED37 9D009E 

FDRDL 

STR EXBUF, X 

Datenbuffer mit Sector DK-Bits fuellen 

ED3R E0 


INX 


ED3B E413 


CPX RWLEN 


ED3D DOF0 


BNE FORDL 


ED3F 2411 


BIT COMST 


ED41 1012 


BPL SFSTRT 


ED43 9C009E 


STZ EXBUF 

bei Formaterror OK-Bits loeschen 

ED46 9C019E 


STZ eXBDF+1 


ED49 2088E4 


JSR TSTWRP 

bei Brite Protect nicht 'Dumm 1 schalten 

ED4C D007 


BNE SFSTRT 


ED4E R96Ö 


LDR «80 

bei Formaterror 'Dumm 1 schalten 

050 0400 


TSB DUMKEN 


ED52 2034E2 


JSR DSPD2 


ED55 R618 

SFSTRT 

LDX COMPOS 

bei Befehl aus erweiterter Kommando-Tabelle 

ED57 £012 


CPX #18 

keine Daten an den Computer senden 

ED59 B026 


BCS CSLX 


ED5B 2055E5 


JSR QUITT 


ED5E 20DBE9 


JSR SEXBUF 

Extended Buffer setzen 

ED6I R514 


LDR SECLEN 


ED63 8513 


STR RWLEN 


EB65 4C21E5 


JMP SDBYTS 


i 

ED68 20R9E1 

COPSLT 

JSR SDRDDP 

Drive Density setzen und Anzeigen 

ED6B A509 


LDR FORKEN 


ED6D 2903 


AND #3 


ED6F R8 


TRY 


ED70 BEB2ED 


LDX SLTBEG.Y 
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ED73 flOOO 


LDY #0 aktuelle Sector-Liste in die Zeropage kopieren 

ED75 BD85ED 

CSLTL 

LDfl SDSTBL.X 

ED78 992000 


STfl SECL5T, Y 

ED7B E8 


INK 

ED7C ce 


INY 

ED7D C41F 


CPY SECANZ 

ED7F D0F4 


BNE CSLTL 

ED81 60 

CSU 

RTS 

ED82 2C1200 

SLTBEG 

.BYTE DDSTBL-SDST8L,MDSTBL-SDSTBL, 0 


Single Density Sectorhste 

ED05 01050507 SDSTEL .BYTE 1,3,5,7,9,11,13,15,17,2,4,6,8,10,12,14,16,18 

ED09 OSOBODOF 

ED6D 11020406 

ED91 OÖOflOCOE 

ED95 1012 


i 

Medium Density Sectorliste 


ED97 01030507 MDSTBL 
ED9B OSOBODOF 
ED9F 11131517 
EDA3 19020406 
EDfl7 080flOCPE 
EDflB 10121416 
EDflF 181 fl 


■ BYTE 1,5,5,7,9,11,13,15,17,19,21,23,25,2,4,6,0,10,12,14,16,18,20,22,24,26 


1 

Double Density Sectorliste 


EDBl 06ÖC1205 DDSTBL .BYTE 6,12,10,5,11,17,4,10,16,3,9,15,2,8,14,1,7,13 

EDB5 OBI 10400 

EDB9 1ÖÖ3090F 

EDBD 02080EÜ1 

EDC1 07ÖD 


EDC3 38 FORERR SEC 
EDC4 60 RTS 


1 Carry 1 =Format EHROR-Flag 


Write Track Kommando starten 


EDC5 202FE3 

FSTflRT 

JSR TRftDJfl 

Kopf positionieren und Track # anzeigen 

EDCS D0F9 


BNE FORERR 


EDCft 2088E4 


JSR TSTVJRP 

Write Protect und Klappe pruefen 

EDCD DOF4 


BNE FORERR 


EDCF 0905 


LDfi #5 


EDD1 6D9F02 


STfl $Ö29F 


EDD4 R9F8 


LDfl #$F0 

Write Track an Controller geben 

EDD6 8D0004 


STfl tö400 


EDD9 A500 


LDfl MERK 1 


EDDB A202 


LDY 12 


EDDD 2C8002 

FORWfll 

BIT $0280 
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EDEO 10FB 


BPL FÜRUßl 

EDE2 8D0304 


STß $0403 

EDE5 Cß 


DEX 

EDE6 D0F5 


BME F0RWF11 

EDE8 ftODO 


LDV IttDO 

EDEß 8C9F02 


STY $029F 

EDED 18 


CLC 

EDEE 60 


RTS 

EDEF 2409 

FDRMTR 

BIT FORKEN 

EDF1 1064 


BPL FßRMMD 

EDF3 A900 

FÜRMSD 

LDfi #0 

EDF5 8500 


STß MERK! 

EDF7 20C5ED 


JSR FSTflRT 

EDFß B0C7 


BCS FORERR 

EDFC A050 


LDY #80 

r ' ’v 20F1EE 


JSR WRBYTS 

, S^l ß9FC 


LDfi «FC 

EE03 20E6EE 


JSR WRBYTE 

\ 

V EE06 98 

FSDL 

TYP 

‘ EE07 ßOl.9 


LDY #25 

; EE09 20F1EE 

>• 

JSR WRBYTS 

EE0C ft9FE 


LDß «FE 

EE0E 20E6EE 


JSR WRBYTE 

EE11 R50D 


LDß TRACK 

EE13 20E6EE 


JSR WRBYTE 

EE16 98 


TYß 

EE17 20E6EE 


JSR WRBYTE 

EElß 8520 


LDfi SECLST, X 

EE1C 20E6EE 


JSR WRBYTE 

EE1F 98 


; TYß 

EE20 20E6EE 


JSR WRBYTE 

EE23 ß9F7 


LDfi #tF7 

' 5 20E6EE 

T 

JSR WRBYTE 

EE20 es 


INX 

EE29 98 


TYß 

EE£fl flOll 


LDY #17 

EE2C 20F1EE 


JSR WRBYTS 

EE2F B9FB 


LDß «FB 

EE31 20E6EE 


JSR WRBYTE 

j EE34 A9FF 


LDß #tFF 

1 EE36 0080 


LDY #$80 

j EE30 20F1EE 


JSR WRBYTS 

i EE3B A9F7 


LDß «F7 

1 EE3D 20E6EE 


JSR WRBYTE 

] * 

i EE4Q E41F 


CPX SECAMZ 


Tiner setzen 

in 'MFM 1 (MD/DD) formatieren 
in ’FM' (Single Density) formatieren 
'Write Track’ Kommando starten 

Track fiM schreiben 


ID ßM 
Track I 
Side # 

Sector i 

Sectorlaenge + 0 
2 CRC-Byte schreiben 


DßTfl AM 
128 Bytes 

Datenfeld schreiben 
2 CROBytes schreiben 
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‘"Wj 


EE42 DOC2 


EINE FSDL 

i 

EE44 A901 

FSDEX 

LDA Hl 

EE46 2D0004 

FSDEL 

AND *0400 

EE49 FOOA 


BEO F0RM2X 

EE4B 2C80Ü2 


BIT *0280 

EE4E 10F6 


BPL FSDEL 

E£50 ÖC0304 


STV *0403 

££53 80F1 


BRA FSDEL 

EE55 18 

F0RM2X 

CLC 

EE56 60 

RTN5 

RTS 

EE57 A94E 

FORMMD 

LDA #*4E 

EE59 8500 


STA MERK1 

EE5B 20C5ED 


JSR FSTART 

EE5E B0F6 


BCS RTN5 

EE6Ö A080 


LDV #$8ö 

EE62 20F1EE 


JSR WRBYTS 

EE65 98 


TYA 

EE66 AOOC 


LDY #12 

EE6Ö 20F1EE 


JSR WRBYTS 

EE6B A9F6 


LDA #*F6 

EE6D fi003 


LDY #3 

EE6F 20F1EE 


JSR WRBYTS 

EE72 A9FC ^ 


LDA #$FC 

EE74 20E6EE 


JSR HRBYTE 

EE77 094E 


LDA t*4E 

EE79 A032 


LDY #*32 

EE76 20FIEE 


JSR HRBYTS 

! 

EE7E 98 

FMDL 

TYA 

EE7F AOOC 


LDY #12 

EE81 20F1EE 


JSR WRBYTS 

£E84 A9F5 


LDA #$F5 

EE86 A003 


LDY #3 

EE86 20F1EE 


JSR HRBYTS 

EE8B A9FE 


LDA #*FE 

EE8D 20E6EE 


JSR HRBYTE 

EE90 A50D 


LDA TRACK 

EE92 20E6EE 


JSR HRBYTE 

EE95 58 


TYA 

EE% 20E6EE 


JSR HRBYTE 

EE39 B520 


LDA SECLST, X 

EE9B 20E6EE 


JSR WRBYTS 

EE9E A501 


LDA MERK2 

EEAO 20E6EE 


JSR HRBYTE 

EEA3 A9F7 


LDA #*F7 

EER5 20E6EE 


JSR WRBYTE 

EEA8 E8 


INX 

EEA9 93 


TYA 


Harten auf 'In Use 1 -Flag=0 

Format Track OK 

In ’HFM 1 (MD/DD) formatieren 
’Hrite Track' Kommando starten 


Track OM schreiben 


ID AM 
Track I 
Side tt 
Sector # 

Sectorlaenge i0=$80/l=tl0ü) 
2 CRC-Bytes schreiben 
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EEflfl 20E6EE 


JSR WRBYTE 


EEAD R94E 


LDA #$4E 


EEßF A016 


LDY #22 


EEB1 20F1EE 


JSR WRBYTS 


EEB4 33 


TYfi 


EEB5 ßOOC 


LDY tilg 


EEB7 20F1EE 


JSR HRBYTS 


EEBA A9F5 


LD9 #*F5 


EEBC A003 


LDY #3 


EEBE 20F1EE 


JSR HRBYTS 


EEC1 A9FB 


LDfl #*FB 


EEC3 20E6EE 


JSR HRBYTE 

DATA AM 

EEC6 R9FF 


LDfl #*FF 


EEC3 9414 


LDY SEELEN 

I2B oder 256 Bytes 

EECß 20F1EE 


JSR WRBYTS 

Datenfeld schreiben 

EECD A9F7 


LDfl #*F7 


EECF 20E6EE 


JSR WRBYTE 

2 CRC-Bytes > 

i 

EED2 E41F 


CPX SECAN2 

letzten Sector formatiert ? 

EED4 F009 


BEQ FMDEX 


EED6 A94E 


LDfl #*4E 


EEDfl 9023 


LDY #41 


EEDft 20F1EE 


JSR WRBYTS 


EEDD Ö09F 


BRfl FMDL 


i 

EEDF 904E 

FMDEK 

LDY #*4E 


EEE1 4C44EE 


JMP FSDEX 

warten auf 'In Ose' - Flag = 0 

i 

EEE4 5017 

WRBTL 

BVC FORTO 


EEEt. 2CB002 

WRBYTE 

BIT 40280 

1 Byte an Controller ue bergeben 

EEE9 10F9 


BPL WRBTL 


EEEB QD0304 


STfl *0403 


EEEE 60 


RTS 


i 

EEEF 500C 

WRBTSL 

BVC FORTO 


EEF1 2C3002 

WRBYTS 

BIT *0280 

Y-Register « Anzahl der an den Controller zu 

EEF4 10F9 


BPL WRBTSL 

uehergebenden Bytes 

EEF6 SD0304 


STfl $0403 


EEF9 88 


DEY 


EEF9 D0F5 


BNE WRBYTS 


EEFC 60 


RTS 


! 

EEFD 68 

FORTO 

PLfl 

Format Time-Dut 

EEFE 68 


PLfl 


EEFF 38 


SEC 


EFOO 60 


RTS 


EF01 9927 

CLRDSK 

LDfl #39 

* Routine zun 'loeschen' einer kompletten Diskette * 

EFÖ3 850D 


STA TRACK 

* Es wird ein unlesbares Format erzeugt * 

EF05 200FEF 

CLRDKl 

JSR CLRTRfl 
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EFOfl B004 
EFÖA C6ÜD 
EFOC 10F7 
EFOE 60 

i 

EFOF A3AA 
EF11 85Ö0 
EF13 2ÖC5ED 
EF16 B0F6 
EFlfl ADO004 
EF1B 40 
EF1C 9QF0 
EF1E 2C8002 
EF21 10F5 
EF23 8D0304 
EF26 SOFO 

EF26 A275 
EF2A 7400 
EF2C ES 
EF2D 10FB 
EF2F A928 
EF31 8574 
EF33 E675 
EF35 A51F 
EF37 8577 
EF33 2409 
EF3B 3004 
EF3D 0304 
EF3F 8579 
EF4i mo 
EF43 0609 
EF45 D003 
EF47 Oft 
EF40 267A 
EF4A 857B 
EF4C C67C 
EF4E 20FBE4 
EF51 A90C 
EF53 0274 
EF55 AOOO 
EF57 4C1BE5 
i 

EF5A A90C 
EF5C 0274 
EF5E AOOO 
EF60 20BCE4 
EF63 2ÖFBE4 
EF66 0982 
EF68 0679 
EF60 FOOA 
EF6C 0941 


SEITE 40 


6CS CLRDKX 
DEC TRACK 
BPL CLRDKL 
CLRDKX RTS 


CLRTRA LDR #$AA 

STA MERK1 
JSR FSTORT 
BCS CLRDKX 
CLRLOP EDO 40400 

LSR fl 

BCC CLRDKX 
BIT $0280 
BPL CLRLOP 
STA $0403 
BRO CLRLOP 

C0M4E LDX *$75 

C4EDL STZ $00,X 

1 NX 

BPL C4EDL 
LDR t$28 
STA $74 
INC $75 
LDO SECONI 
STA $77 
BIT FORKEN 
BMI SETSEI 
LDA 14 
STA $79 
SETSEL LDA #$80 
LDX FÜRKEN 
BNE LOLEN 
ASL A 
ROL $70 
LOLEN STA $7B 

DEC $7C 
JSR SEND41 
LDA #12 
LDX #$74 
LDV #0 
JHP SDBTS 

CÜM4F LDA #12 

LDX #$74 
LDV #0 
JSR RDBTS 
JSR SEND41 
LDA #$82 
LDX $79 
BEQ C4FSD 
LDA #$41 


* Einen Track 1 loeschen’ * 

’Write Track’ - Kommando starten 

’In Use’ - Flag = 0 ? 


Diese Routine gibt folgende Werte an den Computer zurueck; 

Iracks/Disk 

Sectoren/Track 

Side # 

FM/KFM-Kennung 

Bytes/Sector 


MFM-Kennung 
128 Bytes/Sector 


Seetoren/Traek HI 
Sectoren/Track LO 
=FF 


12 Bytes ab Adresse $74 an den Computer senden 


* Diese Routine ist das Gegenstück von CÖM4E * 

* Laufwerk konfigurieren $ 


’A' senden 
SD-Kennung 


MD-Kennung 






m t;v- 


« ..i ■•flKUfj.iiCw ■ ■ ... - 


nmi 
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EF&E B677 


LDX 177 


Er 70 EOlfi 


CPX #26 


EF72 B002 


BCS C4FSD 


EF74 A900 


LDft #0 

DD-Kennung 

EF7& G509 

C4FSD 

Slfi FORKEN 


EF7S B50fl 


STR F0RKEN2 


EF7fl 20A9E1 


JSR SDRDDP 

Drive Density stellen und anzeigen 

EF7D 4CFFE4 


JMP SEND43 

’C senden 

EF&O 2Ö78E3 

C0H53 

JSR C0NRE2 

* 'Status 1 - Kommando * 

EF83 flßlO 


LFM DRSTflT 

Diese Routine gibt folgende Werte an den Computer: 

EFB5 29F7 


RND #*F7 

Drive Status + Time-Out-Wert 

EFÖ7 200004 


BIT $0400 


EFBß 5002 . 


BVC ST7C 


EFflC 090B 


ORR #0 

Write Protect Flag 

EF8E 8570 

ST7C 

STfi $7C 

EF30 A50F 


LDfl CONST 

Controller - Status invertieren 

EF92 49FF 


EOR #$FF 


EFS4 857D 


STfi $7D 


EF% R9E0 


LDA #$E0 


EF9fl S57E 


STfi $7E 


EF9fl 647F 


STZ $7F 


EF9C AD0004 


LDft $0400 


EF9F 05OF '' 


STfi CÜNST 


EFfll 2ÖFFE4 


JSR SEND43 

’C senden 

EFfl4 0904 


IDA #4 


EFA6 A27C 


LDX #$7C 

4 Bytes ab Adresse $7C 

EFR0 ftOOO 


LDY #0 


EFflfi 4C1BE5 

f 


JMP SDBTS 

an den Computer senden 

F 

DISP1 

= $4000 



DISP10 

= $4001 



DEKS1TV 

= $4002 



BUZZER 

= $4003 


i 

EFftD ft561 

BELL 

LDfl DSPCTR 

* Beil-Routine - akustische Unterstuetzung diverser <■ 

EFflF 4fl 


LSR fl 

* Laufmerksfunktionen und Meldungen * 

EFBÖ 9014 


BCC BELLX 

EFB2 5fl 

BELLI 

PHY 

Y-Register merken 

EFB3 A002 


LDY #2 


EFB5 A200 

BELL2 

LDX #0 


EFB7 R946 

SOI 

LDfl #$23 


EFB9 3fl 

502 

DEfi 


EFBfl DOFD 


BNE S02 


EFBC 0DO34O 


STfl BUZZER 

Sutmuer ansprechen 

EFBF Oft 


DEX 


EFCO D0F5 


BNE SOI 


EFC2 ea 


DEY 


EFC3 DOFO 


BNE BELLE 


EFC5 7fi 


PLY 

Y-Register zurueckholen 

EFC6 60 

BEILX 

RTS 
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\ 


EFC7 9C0Ü40 

CLRDSP 

STZ DISP1 

* Display loeschen * 

EFCA 9C0140 


STZ DISP10 

EFCD 9C0240 


STZ DENSITV 


EFDO 60 


RTS 


i 

EFD1 46 

ANZEIGE 

PHfl 

* Diese Rout irre wird zur Hex-Darstellung von Werten » 

EFD2 DA 


PHX 

* in Accu auf de« Display verwendet, es werden keine * 

EFD3 5A 


PHY 

* Register ausser des Status-Registers veraendert * 

EFD4 20ÖFEF 


JSR HEXOUT 

EFD7 7fl 


PLY 


EFDfl FA 


PLX 


EFD9 66 


PLA 


EFUft 60 


RTS 


1 

EFDB 2461 

ERRDSP 

BIT DSPCTR 


EFDD 1016 


BPL HEXX 


EFDF 48 

HEXOUT 

PHA 

Hex-Darstellung auf de« Display 

EFEO 290F 


AND #$0F 

EFE2 flfl 


TßX 


EFE3 BD2BF0 


EDA SEGTBL,X 


EFE6 8DÖ040 


STA DISP1 

rechtes Display 

EFE9 68 


PL fl 

EFEft 4fl 


LSR A 


EFEB 4ß 


LSR fl 


EFEC 4fl 


LSR fl 


EFED 4ft 


LSR A 

• 

EFEE flfl 


TAX 


EF'EF BD2BF0 


LDA SEGTBL,X 


EFF2 8D0140 


STA DI5P10 

linkes Display 

EFF5 60 

HEXX 

RTS 

i 

EFF6 46 

TRflflNZ 

PHA 

* Anzeige der Track 4 auf de« Display * 

EFF7 A50D 


LDA TRACK 

EFF9 £461 


BIT DSPCTR 


EFFB 7005 


BVS TRAHEX 


EFFD 2007F0 


JSR DEZOUT 

Dezimal-Darstellung 

FÖOO 66 


PLA 

F001 60 


RTS 


F002 20DFEF 

TRftHEX 

JSR HEXOUT 

Hex-Darstellung . 

F005 68 


PL fl 

F006 60 


RTS 


i 

F0Ö7 «200 
F009 38 

DEZOUT 

LDX #0 

SEC 

* Wert i« Accu in dezinaler For» auf de« Display ausgeben 

FOOfl A8 

DEZI 

TAY 


FOOB E90fl 


SBC #10 

10’er Stellen abzaehlen 

FOOD 3003 


SW DEZ2 


FOOF E8 


INX 


F010 80F8 


BRß DEZI 


F012 BD2BF0 

DEZ£ 

LDfl SEGTBL, X 


F015 6D0140 


STA DISP10 

linkes Display 
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F016 B92BF0 

LDA SEGTBL,Y 


F01B ÖD0040 

STA DISP1 

rechtes Display 

F01E 60 

RTS 


i 

F01F A509 DENDSP 

LDA FORKEN 

* Drive-Density zur Anzeige bringen * 

F021 2903 

AND 13 


F023 AA 

TAX 


F024 BD3BF0 

LDA DENSEG, X 

Segmenttabelle fuer Density-Anzeige 

F027 BD0240 

STA DENSITY 


F02R 60 

RTS 



5 

Segment-Code Tabelle 


F02B 3F065B4F SEGTBL .BYTE $3F, 6, $5B, $4F, $66,$6D, $7D,7,$7F,$6F, $77,$7C,$39,$5E,$79,$71 

F02F 666D7D07 

F033 7F6F777C 

F037 395E7971 

T 

Density-Code Tabelle 


F03B 040201 

* 

DENSEG 

.BYTE 4,2,1 


F03E fl£7E> 

BREAK 

LDX i$7C 

* Break-Routine * 

F040 A050 


LDY #$50 

* Sollte der Prozessor auf einen BRK-Befehl stossen, * 

F042 BEO140 


STX DISP10 

* wird ein ’ br' + 2 x Bell ausgegeben und ein * 

F045 ÖC0040 


STY DISP1 

* Sytem-Uärmstart ausgefuehrt * 

F048 2O68E0 


JSR SYSERR 


F046 A210 


LDX #$10 


F04D 20FBE2 


JSR X2HAIT 

Harteschleife 

F050 4C73EÖ 


JMP RESET2 

Harmstart 


High-Speed SIÜ-Routine, 

t 

F053 SIO 


wird in relocierter Form zu» Computer geschickt 

STATUS = $30 
CHKSU2 = $31 
BUF = $32 
LEN = $34 
, CRF.TRY = $36 
DRETRY = $37 
; STACKP = $3F 


i 

> 


F053 AD0103 


LDA $0301 


F056 D009 


BNE S102 


F05B A2Ö4 


LDX #4 

bei Laufwerk Nr.=0 

F05A 9D64F2 

DLHTBLL 

STA LHTBL—l,X 

Laufwerk-Tabelle loeschen 

F05D CA 


DEX 


FOSE DOFA 


BNE DLHTBLL 


F060. 60 


RTS 


F061 AA 

SI02 

TAX 


F062 BD64F2 

ABS21 

LDA LHTBL-1,X 

Laufwerk schon auf High-Speed gesetzt ? 
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SEITE 44 


FOGS D034 


BNE SI03 

F067 FE64F2 

ABS22 

INC LWTBL-ljX 

F06A A207 


LDX #7 

FOGC BD0203 

SIOCL 

LDA 40302, X 

F06F 40 


PHA 

F070 BD59F2 

A6523 

IDA C3F,X 

F073 9D0203 


STA $0302,X 

F076 CA 


DEX 

FG77 10F3 


BPL SIOCL 

F079 A931 


LDA #$31 

F07B 8D0003 


STA $0300 

F07E 2059E4 


JSR $E459 

FOfll A920 


LDA t$28 

F083 AE01Ü3 


LDX $0301 

F086 AC0303 


LDY $0303 

FO09 3002 


BMI SI021 

F0Ö5 A501 


LDA $01 

FOflD 9D60F2 

SID2I 

STA SPTBL-1,X 

F090 flOOO 


LDY #0 

F092 60 

5IQ21CL 

PLfi 

F093 990203 


STA $0302,Y 

F096 ca 


INY 

FÖ97 COOfl 


CPY 18 

FÖ99 90F7 


BCC SI021CL 

FÖ9B 70 

SI03 

SEI 

F09C 0ft '' 


TXA 

F09D 0930 


ORA #$30 

F09F 8D3A02 


STA $023A 

F0A2 AD0203 


LDA $0302 

F0A5 0D3BO2 


STA $023B 

F0A8 ADGA03 


LDA $030A 

FOAB 8D3C02 


STA I023C 

FOAE AD0B03 


LDA $030E 

F0B1 8D3DÖ2 


STA $023D 

F0B4 BD60F2 

ABS31 

LDA SPTBL-1, X 

F0B7 SD04D2 


STA ID204 

FOBA BA 


TSX 

FOBB 063F 


STX $3F 

FOBD A902 


LDA #2 

FOEfF 0537 


STA $37 

FÖC1 0904 

1011 

LDA #4 

F0C3 3536 


STA $36 

FOCS A934 

1012 

LDA #$34 

F0C7 8D03D3 


STA $D303 

FOCfl A9Ü0 


LDA #0 

FOCC 0530 


STA $30 

FOCE 053E 


STA $3E 

FODO 8535 


STA $35 

F0D2 8D06D2 


STA 4D206 

F0D5 A33A 


LDA #$3A 

F0D7 8532 


STA $32 

F0D9 mz 


LDA #2 


SID-Kommando retten 

C0M3F - Tabelle kopieren 

Computer SIO - Routine aufrufen 
fuer ERROR normale Baudrate setzen 

Baud-Rate in Speed-Tabelle eintragen 
urspruengliches SIO-Kommando zurueekholen 

Drive # + Bus ID 

SIO - Kommando 
Sector LD 

Sector HI 

Baud-Rate setzen 
Stackpointer retten 
Z Device-Retry*s setzen 
4 Comand-Retry’s setzen 
Command-leitung setzen 
Status = 0 
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SEITE 45 


FODB 8533 


STfl $33 

Buffer $23fl 

FOOD OA 


ftSL fl 

Laenge 4 Bytes 

FODE 8534 


STfl $34 


FOEO 2027F1 

ABS32 

JSR SEND1 

Buffer+Checksumne senden, auf Quittung warten 

FÜE3 AD0403 


LDfl $0304 


F0E6 8532 


STfl $32 

Datenbuffer setzen. 

F0E8 AD0503 


LDfl $0305 


FOE0 8533 


STA $33 


FOED AD08Ö3 


LDfl $0308 


FOFO 8534 


STfl $34 


F0F2 ßD0903 


LDfl $0309 

Datenlaenge setzen ' 

F0F5 8535 


STfl $35 


F0F7 RDÖ303 


LDfl $0303 

Daten zum Laufwerk senden ? 

FOFA 1003 


BPL 102 


FOFC 2027F1 

ABS33 

JSR SEND1 

Öatenbuffer+Checksunme senden, auf Quittung warten 

FOFF C63E 

102 

DEC $3E 


F10I 20BEF1 

ABS41 

JSR SETT11 

fiusfuehrungszeit begrenzen (Tirae-Out) 

vv- Fl04 2C0303 


BIT $0303 

Daten vom Laufwerk uebernehernen ? 

F107 5003 


BVC IG3 


Fi09 206CF1 

A8S42 

JSR BETfll 

auf ’C vw» Laufwerk warten 

F10C fßflO 

103 

LDfl f$flO 


F10E 8D07D2 


STfl $D207 

Soundregister zuruecksetzen 

F1U A510 

s t 

LDfl $10 


Fl13 8D0ED2 


STfl $D20E 

Pokey-Maske zuruecksetzen 

Fl18 20E6F1 

ABS51 

JSR CLRTI 


Fi19 0530 


LDfl $30 


Fl 10 F004 


BEQ 104 

Status OK ? 

Fl ID C637 


DEC $37 

Device-Retry abzaehlen 

FUF DOfiO 


BNE 1011 

und ausfuetiren 

F121 ßfl 

104 

TflV 


F122 8C0303 


STV $0303 

Status setzen 

F125 58 


CLI 


F126 60 


RTS 


f 

F127 flOOO 

SEND1 

LDY #0 


F129 C8 

SEI 

INY 


F12A DOFD 


BNE SEI 


F12C (1923 


UM #$23 


F12E 2043F2 

ABS61 

JSR POKEY 

Pokey auf senden stellen 

F131 B132 


LDfl ($32),Y 


F133 8531 


STfl $31 


FI35 8D0DD2 


STfl $D20D 

Pokey starten 

F138 CS 


INY 


F139 D011 


BNE SE3 


F13B B132 

SE2 

LDfl ($32),Y 


F13D 2020F2 

RBS62 

JSR PUTDYTE 

Buffer senden 

Fl40 CB 


INY 


FI41 DOOS 


BNE SE3 


Fl43 E633 


INC $33 


F145 C635 


DEC $35 


F147 ßEEO 


LDX #$E0 


F149 E8 

SEWL 

INK 
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SEITE 46 


F14A DOFD 


BNE SEWL 


F14C C434 

SE3 

CPY $34 


F14E DOEB 


BNE SE2 


Fl50 A535 


LDfl $35 


Fl52 DOE7 


BNE SEE 


Fl54 0531 


LDfl $31 


Fl56 2020F2 

AB563 

JSR PUTBYTE 

Checksutmen senden 

F159 ftDOEDE 

5E01 

LDfl $D20E 


F15C 2900 


AND *0 


F15E D0F9 


BNE SE01 


F160 A003 


LDY #3 


F162 2OE0F1 

ABS64 

JSR STOUTXO 

Time-Out setzen 

Fi 65 A9C0 


LDfl #$C0 


F167 0DOED2 


STfl $D20E 

IRB-Status zuruecksetzen 

F16fl D059 


BNE RDQUIT 


F16C AOOO 

GETfll 

LDY $0 


F16E 0431 


STY $31 


F170 EOFDF1 

GEI 

JSR GETBYTE 

Datenblock vom Laufwerk holen 

F173 9132 


STft ($32),Y 


Fl75 203BF2 

9BS71 

JSR flDDSUH 


Fl70 C0 


INY 


Fl79 D004 


BNE GE2 


F17B E633 


INC $33 


F17D C635 '' 


DEC $35 


F17F C434 

GE2 

CPY $34 


F101 DOED 


BNE GEI 


Fl03 ß535 


LDfl $35 


F1Ö5 DÖE9 


BNE GEI 


F107 20FDF1 

ABS72 

JSR GETBYTE 

Checksumote holen 

F10A C531 


CMP $31 


F10C DOOB 


BNE ERR6F 


F10E 60 


RTS ■ 


i 

F16F ß90ö 

IQERBO 

LDfl #$00 

Break-Status 

F191 0530 


STA $30 


Fl93 A63F 


LDX $3F 


F195 99 


TXS 

Stackpointer zuruecksetzen 

F196 4C0CF1 

EflBSO 

JMP 103 


F199 flflBF 

ERR0F 

LDfl #$ÖF 

Checksummen - Error 

F19B 2C 


.BYTE $2C 


F19C ft98A 

ERR09 

LDfl #$8fl 

Time-Out - Error 

F19E 0530 

ERROR 

STfl $30 


FlfiO A63F 


LDX $3F 


F1A2 9fl 


TXS 

Stackpointer zuruecksetzen 

fl A3 R53E 


LDfl $3E 


F1A5 3007 


BMI ERRfl 


F107 C636 


DEC $36 


Flfl9 F003 


BEO ERRfl 


FlflB 4CC5FÖ 

E9ÖS1 

JMP 1012 


F1AE 9920 

ERRfl 

LDfl #$20 


FlBO ÖD04D2 


STfl $D204 

Baudrate normal setzen 







. 


dr,:: W ■•*&&&**i 


Speedy 1050 ROI-Listing 


(c)1986 Co«py-Shop 


SEITE 47 


FLB3 0900 


LDO #0 


FIBS OE0103 


LDX *0301 


F1B6 9D64F2 

E0BS2 

STO LHTBL-1,X 

Eintrag in Laufwerktabelle loeschen 

F1S8 4C0CF1 

E0BS3 

JHP 103 


i 

F1BE 0201 

SEIT 11 

LDX Hl 


FlCO 005E 


LDY »5E 


F1C2 2GE0F1 

0B58I 

JSR STOUT 

Tiwe-Out fuer Datenfeld setzen 

i 

F1C5 093C 

RDQUIT 

LDO #*3C 


F1C7 8D03D3 


STO $0303 


FICfl 0913 


LDO 1*13 


F1CC 2G43F2 

RDfll 

JSR POKEY 

Pokey auf lesen stellen 

F1CF 20FDF1 

RD02 . 

JSR GETBYTE 

Quittung holen 

F1D2 C941 


CMP »41 

'fl' 

F1D4 F010 


BEQ CLRTI 


FIDE C943 


CMP »43 

>c 

. 1D8 FOOC 


BEQ CLRTI 


FIDO C945 


CMP #*45 

’E' 

F1DC F004 


BEQ ERR90 


FIDE 098B 


LDO #*8B 

Drive not ready 

F1E0 DOBC 


BNE ERROR 


F1E2 0990 

ERR90 

LDO 1*90 


FIE4 8530 


STO *30 

Status setzen 

F1E6 0000 

CLRTI 

LDY #0 

Timer loeschen 

F1E8 0200 

STOUTXO 

LDX #0 


F1E0 ODFBFi 

STOUT 

LDO ERROBS 


Fl ED 8D2602 


STO *0226 

Timer 1 Sprungvector setzen 

F1F0 0DFCF1 

STD2 

LDO ERROBS+l 


F1F3 0D27O2 


STO *0227 


F1F6 0901 


LDO 11 


F1F8 4C5CE4 


JHP *E45C 


F1FB 9CF1 

ERROBS 

.WORD ERR80 


5 

F1FD 0D0ED2 

GETBYTE 

LDO *D20E 

1 Byte vom Pokey holen 

F200 108D 

JMPEBO 

BPL I0ER80 


F202 2920 


AND #*20 

auf 'Shiftregister voll' warten 

F204 D0F7 


BNE GETBYTE 


F206 09DF 


LDO #*DF 


F208 8D0ED2 


STR *D20E 

IRQ - Flag zuruecksetzen 

F20B 09E0 


LDO #*E0 


F20D 8D0ED2 


STO *D20E 

IRQ - Status neu setzen 

F210 0D0FD2 


LDO *D20F 


F213 BD00D2 


STO *0200 


F21E 1084 


BPL ERR80 


F218 2920 


FIND #*20 


F210 F080 


BEQ ERR8A 


F21C 0DÖDD2 


LDO *D20D 

Shift - Register lieber nehmen 

F21F 60 


RTS 


; 

F220 48 

PUTBYTE 

PHO 

1 Byte an den Pokey uebergeben 
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SEITE 48 


F221 AD0ED2 

PUT Al 

LDA tDE'OE 


F224 2910 


and #$io 

Warten auf 'Shift - Register leer’ 

F226 DOF9 


BNE PUTA1 


F228 A9EF 


LDA #$EF 


F22A SD0ED2 


STA $D20E 

IRQ - Flag zuruecksetzen 

F22D A9D0 


LDA #$D0 


F22F SDOED2 


STA $D20E 

IRQ - Status neu setzen 

F232 68 


PLA 


F233 ÖD0DD2 


STA 1D20D 

Byte an Shift - Register uebergeben 

F236 AE0ED2 


LDX $D206 


F239 10C5 


BPL JMPE80 


5 

F23B 18 

flDDSUM 

ac 

Checksumte errechnen 

F23C 6531 


ADC $31 


F23E 6900 


ADC #0 


F240 8531 


STA $31 


F242 60 


RTS 


i 

F243 8DÖFD2 

POKEY 

STA $D20F 

Pckey fuer Batenein- und ausgabe vorbereiten 

F246 8DOflD2 


STA $D20A 


F249 AS28 


LDA #$28 


F24B 8D08D2 


STA $D2Ö8 


F24E A9A8 


LDA #$A8 


F250 0DO7D2 


STA $D2Q7 

Sound - Register vorbereiten 

F253 A9F0 ^ 


LDA #$F8 


F255 8DOED2 


STA $D20E 

IRQ - Enable setzen 

F258 60 


RTS 



i 

C0M3F - Tabelle 


F259 3F4Ü01ÖÜ CSF 
F25D 01000100 

F 2 &i essssasa sptbl 

F265 OÖOOOOOO LWTBL 


.BYTE 63,64,1,0,1,0,1,.0 

.BYTE 40,40,40,40 Baudraten - Tabelle fuer Laufwerke 1~4 

.BYTE 0,0,0,0 Pruef - Tabelle fuer Laufwerke 1-4 


F269 SIOEND 

t 

Absolute Adressen Tabelle fuer fielocator 
i 

F269 5BF0 ABSTBL .WORD DLWTBLL+1, ABS21+l,ßBS22+l,ABS23+i,SI(El+l,fiBS31+l 

F26B 63F0 

F26D 6ÖF0 

F26F 71F0 

F271 8EF0 

F273 B5F0 

F275 E1F0 .WORD ABS3E+1,RB533+I,ABS41+1,ABS42+I,HBSS1+1,ABS61+1,RDSfiS+l 

F277 FDFO 

F279 02F1 

F27B OflFl 

F27D 17F1 

F27F 2FF1 

F2Ö1 3EF1 
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F283 57F1 .WORD flflS63+l,flBB64+i 1 GEl+l 1 flBS71 + l,flBS72+l,.EflBS0+l,EflBSl+l,EnBS2+l 

F285 63F1 

F287 71F1 

F2B3 76F1 

F28B BBF1 

F28D 97F1 

F28F (5CF1 

F231 B9F1 

F293 BCF1 .WORD H0BS3+1, HBS81+1, RDfii+1, RDA2+1, ST0UT+1, STÖ2+1,ERRABS 

F295 C3F1 

F297 CDF1 

F299 DOF1 

F29B EBF1 

F29D F1F1 

F£9F FBF1 

i 

Laufwerks - Testroutinen (werden in spaeteren Versionen erweitert) 


F2ßl 2050E5 

RDKT5T 

JSR SIELL2 

* ROM-Testroutine * 

F2A4 9200 


LDX #0 


F2ftt> ft9E0 


LDfl #$E0 


F2fl8 851(1 


STA IND+1 

ROK - Adresse $EOOO 

F2fl(1 (1000 


LDV #0 


F2flC 8419 

** 

STY JND 


F2fiE 98 

R0MT2 

TYR 


F20F 18 


CLC 


F2B0 7119 

ROMTL 

ADC IIND),Y 

Checksuswe fuer 1 ROM-Page errechnen 

F2Ö2 C8 


INY 


F2B3 DOFB 


BNE RDHTL 


F2B5 DDEOFE 


CKP RGMCFK, X 

Checksu tonte DK 

F2B8 D009 


BNE ROMTX 


F&Bfl E610 


INC IND+1 


F2BC E8 


INX 


F2BD E020 


CPX l$20 

32 Pages getestet ? 

F2BF 30ED 


BCC R0MT2 


F2C1 6411 


STZ COMST 

OK - Status setzen 

,F2C3 4C55E5 

R0I4TX 

JMP QUITT 


J 

F2C6 2050E5 

RRHTST 

JSR STELL2 

* RAM-Testroutine * 

F2C9 R95S 


UW H55 


F2CB 8D009E 


STR EXBUF 


F2CE (100Q 


LDY 10 


F2D0 B90000 

RT1L 

LDfl $00, Y 


F2D3 8D019E 


STR EXBHF+1 


F2D6 SD009E 


LDfl EXBUF 


F2D9 990000 


STfl $00,Y 


F2DC D90000 


CMP $00,Y 

Zeropage testen 

F2DF D03B 


BNE ZPERR 


F2E1 AD019E 


LDfl EXBUF+1 


F2E4 990000 


STfl $00,Y 


F2E7 C8 


INY 


F2E8 D0E6 


BNE RT1L 



(c)1986 Conpy-Shop 
SEITE 43 
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SEITE 50 


F2EA 0E009E 


ftSL EXbUF 


F2ED 3ÖE1 


BCC RT1L 


i 

F2EF A98Ö 


LDfl #*60 


F2F1 6591 


STO *91 

RftM - Adresse 16000 setzen 

F2F3 ftOOO 


LDY #0 


F2F5 8490 


STY $90 


F2F7 A955 

RTflBSL 

EDO #*55 


F2F9 8500 


STO MERK1 


F2FB Bl90 

Ria 

LDfl (*90),Y 


F2FD 8501 


STO MERK2 


F2FF R500 


LDfl MERK1 


F301 9190 


STfl (*90),Y 


F3Ü3 D19Ö 


CMP (*90),Y 

RAH von *8000 bis RflHTDP testen 

F305 DO17 


BNE RTERR 


F307 ft501 


LDfl MERK2 


F309 9190 


STA (190),Y 


F30B C8 


INY 


F30C DOED 


BNE RT2L 


F30E 0600 


flSL HERK1 


F310 90E9 


BCC RT2L 


F3I2 E691 


INC *91 


F314 0591 


LDfl *91 


F316 C9fl0 


CMP # )CMTBL+tÜlOO 

RflMTGP erreicht ? 

F318 90DD 


BCC RTflBSL 


F31fl 6071 


BRfl SPCflX 


i 

F31C 6491 

ZPERR 

STZ *91 

fehlerhafte RflH-Adresse zu« senden Zwischenspeichern 

F31E 6490 

RTEHR 

STY *90 


F320 S06D 


BRfl SPTEX 


5 

F322 2050E5 

SPEEDT 

JSR STELL2 

* Motor - Speed - Test * 

F325 640D 


STZ TRACK 


F327 202FE3 


JSR TRflDJfl 

Track 0 positionieren 

F32A 209BF3 


JSR FDSEC1 

Abstand zwischen SEctor 1 und Sector 1 testen 

F32D B060 


BCS SPTEX 


F32F 209BF3 


JSR FDSEC1 


F332 B05B 


BCS SPTEX 


F334 6490 


STZ *90 


F336 6491 


STZ *91 

Counter Lieschen 

F338 A9E4 


LDfl #1E4 


F33A 8592 


STft 192 


F33C A9E1 


LDfl «El 


F33E 8593 


STO 193 


F340 A9C0 


LDfl #*C0 

von Konstante 1E4E1C0 die gezaehlten Taktzyklen abzaehlen 

F342 6594 


STfl 194 


F344 A594 

SPCAL 

LDfl 194 


F346 36 


SEC 


F347 E501 


SBC MERKE 


F349 6594 


STfl *34 


F34B 0593 


LDfl 193 





r_v. 
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F34D E502 
F34F 6593 
F351 BOOS 
F353 0592 
F355 E900 
F357 8532 
F359 9015 
F35B 206QF3 
F35E S0E4 

F360 F8 
F361 0591 
F363 18 
F364 6901 
F366 8591 
F368 0590 
F36A 6900 
F36C 8590 
F36E 08 
F36F 60 
i 

F370 0534 
F372 49FF 
F374 8594 
F376 0593 
F37B 49FF 
F370 8593 
F37C 4602 
F37E 0501 
F380 60 
F381 38 
F382 E594 
F384 0502 
F386 E593 
F388 9003 
F38A 2060F3 

F38D 6411 
F36F 2055E5 
F392 0902 
F394 0290 
F3% 0000 
F398 4C1BE5 

F39B 0901 
F39D 8D0204 
F3O0 0988 
F302 BD0004 
F305 09D8 
F307 8D9F02 
F300 6401 
F30C 6402 


SEITE 51 


SBC MERK3 
STO (93 
BCS SPCOD 
IDO (92 
SBC #0 
STO (92 
BCC SPCEND 

SPCOD JSR SPCODD 

BRO SPCOL 

SPCODD SED . 

LDO (91 
CLC 
ODC 41 
STO $91 
LDO (90 
ODC #0 
STO (90 
CLD 
RTS 

SPCEND LDO (94 

EOR 4$FF 
STO (94 
LDO (93 
EOR 4 (FF 
STO (93 
LSR MERKS 
LDO MERK2 
ROR 0 
SEC 

SBC (94 
LDO MERK3 
SBC (93 
BCC SPCOX 
JSR SPCODD 

SPCOX STZ CDKST 

SPTEX JSR DUITT 

LDO 12 
LDX 4(90 
LDY »0 
JHP SDBTS 

FDSEC1 LDO *1 

STO (0402 
LDO 4(98 
STO (0400 
LDO l(D8 
STO (029F 
STI MERK2 
STZ MEHK3 


Counter in Dezinalnodus heraufzaehlen 


eine Stelle hinter den Konna runden 


Speed-Wert zun Computer senden 


Sector 4 in Sector-Register des Controllers setzen 


Tine-Out setzen 
Counter zuruecKsetzen 
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F3GE A207 


LDX #7 


F3B0 Cfl 

FBS1WL 

OEX 


F3B1 DOFD 


BNE FDS1UL 


F3B3 2C8ÖÖ2 

FDS1L 

BIT $0280 


F3B6 5016 


BVC FDS1T0 


F3B8 3010 


BMI FDS1DR 


F36fl E601 


INC MERKE 


F3BC 0004 


BNE FD51NI 


F3BE E602 


INC MERK3 


F3C0 6002 


BHfl FDS1TZ 


F3C2 48 

FDS1NI 

PHfl 

Zeit nach Maschinenzyklen (1 Mhz) festlegen 

F3C3 68 


PLfl 


F3C4 48 

FDS1IZ 

PHfl 


F3C5 68 


PLfl 


F3C6 48 


PHfl 


F3C7 68 


PLfl 


F3C8 80E9 


BRf) FDS1L 


I 

F3Cß 18 

FDS1DR 

CLC 


F3CB 4C7BE3 


JMP CONRES 


F3CE 38 

FDS1TQ 

SEC 

Tinie-Dut - Error Kennzeichnen 

F3CF 4C78E3 


JMP CÜNRE2 



i 


Freier ROM-Speicher fuer zukünftige Erweiterungen 




FD5C 


*= $F£00 


FEOO 20FBE4 

C0M3F 

JSR SEND41 


FE03 ft909 


LDA #$09 

High-Speed Wert fuer Pokey an den Computer senden 

FE05 203FE5 


JSR SDBVTE 


FE08 R9Q9 


LDfl #$09 


FEOfi 203FE5 


JSR SDBYTE 


FEOD 0901 


LDfl 11 


FEOF 8515 


STfl USKEN 

Dattenuebertragung auf High-Speed stellen 

FE11 60 


RTS 


i 

FEI2 2C8002 

NDRDB 

BIT $0280 

* Read-Byte Routine fuer normale Uebertragungsrate # 

FE15 501F 


BVC RD8TQ 


FE17 2C8202 


BIT $0282 


FElfl 5ÖF6 


BVC NORDB 

auf Startbit warten 

FE1C ß£06 


LBX #6 


FEIE Cfl 

RDBL1 

DEX 


FE1F DOFD 


BNE RDBLI 


FE21 ft980 


LDfl *$80 


FE23 (4207 

RDNBIT 

LDX #7 


FE25 Cfi 

RDBL2 

DEX 


FE26 DOFD 


Bit RDBL2 


FE28 2C8202 


BIT $0282 

1 Bit uebernehmen 

FE2B 5003 


BVC SETC 



ic) 1986 Do«<py-Shop 
SEITE 52 
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F£2D 18 


clc 


FE2E 9002 


BCC RDBSB 


FE30 38 

SETC 

BEO 


FE31 Efl , 


NOP 


FE32 Efl 

RDBSB 

ROR fl 


FE33 90EE 


BCC RDNBIT 


FE35 EO 


RTS 


FE3E E8 

RDBTO 

PLfl 

Ruecksprungadresse vom Stack holeri 

FE37 E8 


PLfl 


FE38 4C7EE4 


JMP ER40UK 

Kennung fuer Uebertragungsrate uoschalten 

FE3B 208202 

USRDB 

BIT $0282 


FE3E 50FB 


BVC USRDB 


FE40 9208 


LDX 18 


FE42 AD8202 

Ol TL 

LDfl $0282 

* 1 Datenblock in High-Speed vom Computer holen # 

FE45 Ofi 


ftSL fl 

FE46 Ofl 


flSL fl 


FE47 EEOO 


ROR MERK1 


FE49 Ofl 


DEX 


FE4A 10F6 


BPL USBITL 


FE4C 8fl 

SVSDB 

TXfl 


FE4D 4500 


EOR MERK1 


FE4F 2C8202' 

USW1 

BIT $0282 

1 Bit uebernehmen 

FE52 50FB 


BVC USW1 


FE54 9119 


STfl UND),Y 


FESE 18 


CLO 


FE57 E51B 


FIDO CHKSUK 

Checkstuwe heraufzaehlen 

FE59 6900 


ADC #0 


FE5B 851B 


STfl CHKSUM 


FE5D A207 


LDX 17 

Bit - laehler fuer 8 Bits 

FE5F AD8202 

USW2 

LDfl $0282 


FE62 Ofl 


flSL ft 


FE63 Ofl 


ftSL fl 


FEE4 6600 


ROR MERK! 


FE66 Oft 


DEX 


FE67 10FE 


BPL USU2 


FE69 08 


INY 


FE6A 0413 


CPY RWLEN 

Checksumme empfangen ? 

FE6C DODE 


BNE SVSDB 


FEEE 68 

USRDBX 

PLfl 


FE6F 68 


PLfl 


FE7Ö Bfl 


TXfl 


FE7I 4500 


EOR MERK1 


FE73 4CE4E4 


JMP RDEXIT 


FE76 R9Ö1 

NOSDB 

LDfl *1 

* 1 Byte in (formal Speed an den Computer senden * 

FE78 1C6202 


TRB $0282 

StartBit setzen 

FE7B Dft 


PHX 


FE7C 5ß 


PHY 


FE7D ftOOB 


LDY #8 

8 Bit Zaehler 

FE7F 9205 


LDX #5 
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FE01 CA 

SBWL1 

DEX 

FE82 DOFD 


BNE SBWL1 

i 

FE84 AD8202 

SDBITL 

LDA $0282 

FE87 4A 


LSR A 

FE88 4600 


LSR KERK1 

FEflfl 2A 


ROL A 

FE0B 8D8202 


STA $0282 

FE8E A205 


LDX #5 

FE90 CA 

SBUL2 

DEX 

FE91 DOFD 


BNE SBNL2 

FE93 Efl 


NOP 

FE94 £A 


MOP 

FE95 88 


DEY 

FE% DOEC 


BNE SDBITL 

i 

FE98 0901 


DRA «1 

FE9A 8D8202 


STA (0282 

i 

FE9D «203 


LDX *3 

FE9F CA 

SBHL3 

DEX 

FEAO DOFD 


BNE SBUL3 

FEA2 7A 


PLY 

FEA3 FA 


PLX 

FEA4 60 

,4 

RTS 

i 

FEA5 AD82Ö2 

USSDB 

LDA $0282 

FEA8 29FE 


AND i$FE 

FEAA 8DB202 


STA (0282 

FEAD A208 


LDX #8 

FEAF 4A 

USSBL 

LSR A 

FEBO 6600 


ROR NERK1 

FEB2 2A 


ROL A 

FEB3 8B8202 


STA $0282 

FEB6 CA 


DEX 

FEB7 DÖF6 ' 


BNE USSBL 

FEB9 4A 


LSR A 

FEBA 38 


SEC 

FEBB 2A 


ROL A 

FEBC C500 


CMP $00 

FEBE 8D8202 


STA $0282 

FEC1 60 


RTS 


1 Bit ins PID-Register shiften 


alle Bits gesendet 
Stopbit setzen 


Startbit setzen 
Bitzaehler 

1 Bit ins PID-Register shiften 

Stopbit setzen 


FEC2 


*= $FEE0 


Checksuiwenbytes fuer Rantest 

(werden bei’« assenblieren nicht richtig gesetzt 

FEEO 01020304 RCWCHK .BYTE 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
FEE4 Ö50607ÖÖ 
FEE8 Ü9OA0B0C 










,n* 
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FEEC ODOEOFIO 

FEFO 11121314 .BYTE 17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32 

FEF4 15161718 

FEF8 191A1B1C 

FEFC 1D1E1F20 

i 

Vektortabelle 

Von eigenen Programmen sollte nur ueber diese Vectortabelle gesprungen «erden, 
da die Programme sonst auf den folgenden Speedy-Versionen nicht laufen koennten. 



*= JFFÖO 


FF00 4C00E0 

JMP RESET 

Drive Kaltstart 

FF03 4C73E0 

JTMP RESET2 

Warmstart 

FF06 4CECE0 

JMP BEREIT 

Berelt sch af troutine 

FF09 4C4.1EI 

JHP HOTON 

Motor zwingend einschalten 

FF0C 4C3CE1 

JMP TSTMON 

Motor einschalten wenn Klappe zu ist 

- FFOF 4C2DE1 

JMP MOTOFF 

Motor ausschalten 

FF 12 4CD2E3 

JHP SDELßY 

Motor Timer stellen 

FF15 4CR9E1 

JMP 3DRDDP 

Drive Density stellen und anzeigen 

FF 10 4CF2E2 

JHP XWfilT 

Uarteschleife kurz 

FF1B 4CF8E2 

JMP X2UAIT 

Warteschleife lang 

FF1E 4CD1E2 0 

JMP TRßCKO 

Track 0 positionieren 

FF21 4C2FE3 

JMP TRßDJß 

Track * anzeigen und Kopf positionieren 

FF24 4C32E3 

JMP TRflDJ 

Kopf positionieren, Track # nur anzeigen, wenn Trackwechsel 

FF27 4C0FE3 

JMP TRVR 

1 Step vorwaerts oder rueckwaerts gehen 

FFSfi 4C7BE3 

JMP CONRES 

Disk Controller stoppen 

FF2D 4C78E3 

JMP C0NRE2 

2 mal CDNRE5 

FF30 4C85E3 

JHP WREßDY 

auf Controller ’In Use’~Flag=0 warten 

FF33 4CB3E4 

JMP RD12BB 

128 Efytes vom Computer nach EXBUF holen 

FF36 4CB6E4 

JMP RD256B 

256 Bytes vom Computer nach EXBUF holen 

FF39 4CBCE4 

JMP RDBIS 

ßccu^flnzahl der Bytes nach Buffer (X/Y-Register) holen 

FF3C 4CCDE1 

JMP RDSFOL 

nach Verzoegerung Sectorfolge vom aktuellen Track lesen 

FF3F 4CD2E1 

JMP RDSF01 

sofort Sectorfolge vom aktuellen Track lesen 

FF42 4C6FE2 

JMP RDTRfl 

alle Sectoren des aktuellen Track ins RAM einlesen 

FF45 4C44E2 

JMP RDTR9V 

wie RDTRfi aber mit Verify und einem Retry 

— FF40 4C64EB 

JMP TSTWR 

noch zu schreibende Sectoren aus RAM auf Diskette schreiben 

FF4B 4C04E6 

JMP TSTDßT 

TSTWR ausfuehren und alle Sectoren als nicht gelesen markieren 

FF4E 4C12E5 

JMP SD128B 

128 Bytes vom EXBUF zum Computer senden 

FF51 4C15E5 

JMP SD256B 

256 Bytes vom EXBUF zum Computer senden 

FF54 4C1BE5 

JMP SDBTS 

ßccu=flnzahl der Bytes aus Buffer (X/Y-Reg.) senden 

FF57 4CFBE4 

JMP SEND41 

’fl’ zum Computer senden 

FF5ß 40FFE4 

JMP SEND43 

1 C zum Computer senden 

FF5D 4C03E5 

JMP SEND45 

’£' zum Computer senden 

FF60 4C07E5 

JMP SEND4E 

'N' zu» Computer senden 

FF63 4CCFEß 

JMP RDSECT 

aktuellen Sector von Diskette in vorbezeiehreten RßM einlesen 

FF66 4CD4EA 

JMP RDSEC1 

bezeichneten Sector in bezeichnten RßH einiesen 

FF69 4C63EC 

JMP WRSECT 

aktuellen Sector von vorbezeichneter RßM-ftdr, auf Disk schreiben 

FF6C 4C6EEC 

JMP WRSEC1 

bezeichnten Sector von vorbezeichneter RßK-ßdr, schreiben 

FF6F 4C88E4 

JHP TSTWRP 

Write Protect und Klappe testen 

FF72 4CA4EC 

JMP VERSES 

aktuellen Sector mit angegebenem RßH vergleichen 

FF75 4CP9EC 

JMP VERSE! 

bezeichenten Sector mit angegebenem RflN vergleichen 
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FF78 4C4CE5 

JMP STELL 

COM-Status auf ' Error 1 und £ Retry’ 5 setzen 

FF7B 4C55E5 

JMP QUITT 

Quittung ’C’ oder ’E* je nach COM-Status senden 

FF7E 4C3DEB 

JHP' RDHEflD 

Die nächsten 1 Header’-Daten lesen 

FFÖ1 4C42EB 

JMP RDHD1 

wie RDFIEAD aber Timer nicht setzen 

FF84 4C1DEB 

JMP RDHDSP 

Kopf positionieren und nächsten 'Header* lesen 

FF07 4CE4E3 

JMP CALCTS 

Track- und Sectornummer errechnen 

FF 8 fi 4C1AEA 

JMP SETBUF 

Buffer nach aktuellem Sector setzen 

FFÖD 4ClCEfi 

JMP SET8UF2 

Buffer nach Sectornumraer im Accu setzen 

FF90 4CDBE9 

JMP SEX 6 UF 

Adresse des Extended-Buffers setzen 

FF93 4C2CEA 

JMP SEl'RWL 

Anzahl der Bytes fuer zu uebertragenden Datenblock setzen 

FF96 4C68ED 

JMP COPSLT 

Sectorlisie fuer aktuelles Density ir* Zeropayö kopieren 

FF99 4CB2EF 

JMP BELLI 

1 Bell (Buzzerl ausgeben 

FF9C 4CC7EF 

JMP CLfiDSP 

Display abschalten 

FF9F 4CF6EF 

JMP TRAANZ 

aktuelle Track # anzeigen 

FFA2 4C07F0 

JMP DEZOUT 

Wert im Accu in dezimaler Form anzeigen 

FFA5 4CDFEF 

JMP FCXGUT 

Wert im Accu in Hexadezimaler Form anzeigen 

FF Aß 4C1FF0 

JMP DENDSP 

aktuelles Density anzeigen 

FFAB 4C72E5 

JMP SETTIM 

Timer mit Wert im Accu setzen 

FFAE 4C0FEF 

JMP CLRTRA 

Einen Track mit unlesbaren Format versehen (reformatieren) 

FFB1 4C01EF 

JMP CLRDSK 

ganze Diskette reformatieren 

FFB4 4CC6F2 

JMP RAMTST 

Einsprung fuer RAM-Test, 2 Bytes werden gesendet 

FFB7 4C01F2 

JMP ROMTST 

ROM-Test Einsprung, es wird nur quittiert 

FFBft 4C££F3 

j 

JMP SPELLT 

Einsprung fuer Speed-Test, 2 Bytes werden gesendet 

; 

*~$FFF 8 


J 

. BVTE VERSION 

Speedy Verions Nummer 


.WORD RESET 

Reset - Vektor fuer den Prozessor 


■WORD BREAK 

Break - Vektor fuer den Prozessor 


r 




ti), ■ 





